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WICHTIGE INFORMATIONEN 

DISKETTE LÄSST SICH NICHT LADEN 

Diese Diskette wurde auf einer der modernsten Kopierstationen der Welt unter 
Verwendung hochwertigen Diskettenmaterials erstellt. Umfangreiche Kontrollen 
schließen nicht ladbare Disketten damit nahezu aus. Trotzdem kann es Vorkom¬ 
men, daß sich diese Diskette nicht laden läßt Die Ursache dürfte dann in der Regel 
darin zu suchen sein, daß Ihre Floppy dejustiert, d. h. nicht richtig eingestellt ist. 
Eine Floppy ist ein mechanisch arbeitendes Gerät, das regelmäßiger Wartung 
bedarf. Insbesondere bei Billiglaufwerken wie der VC-1541 sind schlecht justierte 
Köpfe häufig anzutreffen. Disketten wie die beiliegende, die auf sorgfältig justierten 
Laufwerken erstellt wurden, lassen sich mit schlecht justierten Laufwerken oft nicht 
lesen. 

Wir empfehlen Ihnen deshalb, insbesondere bei häufiger Benutzung, Ihre Floppy 
regelmäßig kontrollieren zu lassen. Bei Lesefehlern wenden Sie sich deshalb bitte 
zunächst an Ihren Händler. 

KOPIERSCHUTZ 

Niedrige Programmpreise trotz hoher Entwicklungskosten sind nur durch große 
Stückzahlen möglich. Dieses Programm ist deshalb zur Vermeidung unberechtig¬ 
ter Weitergabe gegen Kopieren geschützt. Kopierversuche können die Diskette 
zerstören. Wir weisen außerdem darauf hin, daß wir die Verbreitung von Raub¬ 
kopien unnachsichtig juristisch verfolgen. 

ERSATZ DEFEKTER DISKETTEN 

Sollte aus irgendeinem Grund Ihre Diskette beschädigt oder gar zerstört werden, 
so senden Sie bitte Ihre Originaldiskette mit einem Verrechnungsscheck über 20, - 
DM an uns zurück. Sie erhalten dann postwendend eine neue Diskette. 

SICHERHEITSKOPIE 

Pro Originaldiskette bieten wir den Erwerb einer Sicherheitskopie zu einem Nomi¬ 
nalbetrag an. Einen entsprechenden Anforderungsschein finden Sie am Ende des 
Handbuches. 

BITTE HANDBUCH SORGFÄLTIG LESEN 

w Trotz guter Bedienerführung am Bildschirm ist es zum richtigen Verständnis und 
zur fehlerlosen Bedienung des Programms unerläßlich, daß Sie das Handbuch 
sorgfältig lesen. Nahezu alle sogenannten Fehlfunktionen sind auf falsche Bedie¬ 
nung zurückzuführen. Sollten Ihnen Grundbegriffe wie z. B. die Funktionen der 
Tastatur Ihres Computers oder das Formatieren einer Diskette nicht geläufig sein, 
so konsultieren Sie bitte das zu Ihrem Computer gehörende Handbuch. 

Wir weisen in diesem Zusammenhang darauf hin, daß wir nicht in der Lage sind, 
telefonisch Hilfestellung zu leisten. 

Im Falle von Programmfehlern oder Reklamationen senden Sie uns bitte eine 
genaue schriftliche Fehlerbeschreibung, damit wir diese an die Autoren weiterlei¬ 
ten können. 

BITTE UNBEDINGT LESEN! 









VORWORT 


Das Manual beschreibt das PROFI PASCAL - System für den 
Homecomputer C64 von Commodore. Die für das Arbeiten mit 
PROFI PASCAL erforder1iche minimale Gerätekonfigurat 1 on besteht 
aus dem C64, einer Floppy-Disk-Stat 1 on 1541 und einem Fernseh¬ 
gerät (Monitor). Die volle Ausschöpfung aller Möglichkeiten und 
Fähigkeiten von PROFI PASCAL ist jedoch erst bei Einsatz einer 
weiteren Floppy-Disk~Station 1541 und eines Druckers 
gewähr leistet. 


Dieses Handbuch wurde inhaltlich auf denjenigen C64-Anwender 
abgestimmt, der sich mit der Programmierung in Pascal vertraut 
gemacht hat und bereits einige grundsätzliche Erfahrungen in der 
Erstellung von Programmen hat. Das Manual ist kein Programmier¬ 
ader Pascal-Handbuch und kann auch kein solches sein. Dafür gibt 
es inzwischen ein recht umfangreiches und umfassendes Literatur— 
angebot. 


PROFI PASCAL ist zunächst 
"Standard-Pascal", dessen 
Erläuterung in "Pascal User 
Jensen und Ni kl aus Wirth, 
erfolgt. 


die volle Implementation von 
grundsätz 1iche Beschreibung und 
Manual and Report" von Kathleen 
der "Pascal-Bi bei" schlechthin. 


PROFI PASCAL besitzt allerdings eine Reihe schlagkräftiger 
Erweiterungen, die weit über den Rahmen dessen hinausgehen, was 
sowohl in der Wirth'sehen Standard Pascal - als auch der 
vielfach auf Personal- und Homecomputern eingesetzten UCSD 
Pascal-Version vorgesehen ist - ganz zu schweigen von den 
diversen Mini-1mp 1 ementationen. 




Nicht zuletzt deswegen kann Ihnen zum Erwerb von PROFI PASCAL 
uneingeschränkt gratuliert werden. Sie besitzen mit Sicherheit 
eines der professionellsten und umfangreichsten Pascal-Systeme, 
die es bisher für den C64 oder vergleichbare Rechner gegeben 
hat. Leider wird der Enthusiasmus über die enormen Fähigkeiten 
von PROFI PASCAL etwas gedämpft durch den Schwachpunkt des C64- 
Systems, nämlich durch den mit etwa 250 bis 400 Bytes pro 
Sekunde extrem langsamen Datentransfer zwischen C64-Rechner und 
1541-Floppy. Dennoch war es möglich, diesen Datentransfer unter 
der Kontrolle und dem Einsatz von PROFI PASCAL auf 1250 Bytes 
pro Sekunde zu steigern - und dies ohne irgendeine Hardeware- 
Änderung bei vollem Erhalt der Bi 1dschirmwiedergabe und einer 
verbesserten Interrupt- und Tastaturabfrage. Das heißt, Sie 
haben während der gesamten Arbeitszeit mit PROFI PASCAL einen 
mindestens dreimal schnelleren Datenzugriff auf der Diskette bei 
Erhalt der vollen Eingabemöglichkeit auf der Tastatur und einem 
ununterbrochen eingeschalteten Bildschirm. 


Ein weiterer wichtiger Punkt sollte Ihnen nicht verschwiegen 
werden. Aus Gründen des Urheberschütz es und zur Wahrung der 
Interessen des Entwicklers von PROFI PASCAL sind Kopien des 
Pascal-Compi1 ers und des im System ebenfalls enthaltenen 
Assemblers nicht lauffähig. Dies bedeutet, daß Sie lediglich auf 
der mit Kaufvertrag erworbenen System-Diskette je eine lauf- 
fähige Oersion von Compiler und Assembler besitzen. Gehen Sie 
also mit dieser Diskette entsprechend sorgfältig umj sie wurde 
vor dem Verkauf auf einwandfreie Aufzeichnung und Trackläge 
getestet. 


WARNUNG 

Das gesamte PROFI PASCAL-Programmpaket unterliegt dem 
Urheberschütz (Copyright). Jede Weitergabe ist 
ausnahmslos untersagt. Das Kopieren über den eigenen 
Bedarf hinaus wird mit allen strafrecht1ichen 
Möglichkeiten verfolgt und der entstandene Schaden¬ 
ersatz eingeklagt. Sicher haben Sie im Hinblick auf 
die immense Entwicklungsarbeit für dieses Programm¬ 
paket dafür volles Verständnis. 



Ergänzend sei noch vermerkt, daß mir stets bewußt ist, daß ein 
solch komplexes Programmpaket wie PROFI PASCAL trotz größter 
Sorgfalt und dem Bemühen nach Exaktheit nicht frei sein kann von 
eventuellen Fehlern, die sich vielfach erst bei Ihnen als 
Anwender heraussteilen. Scheuen Sie sich nicht, diese mitzu¬ 
teilen, denn sie sind - ebenso wie eine konstruktive Kritik - 
als Anregung und Verbesserung für zukünftige Programmversionen 
stets willkommen. Bei aufgetretenen Fehlern wäre eine genaue 
Darstellung aller Umstände und Details für deren Lokalisierung 
sehr hilfreich. 


Sollten Sie die innerhalb des Pascal-Systems durchgängig in 
englischer Sprache gehaltenen Programmbefehle, Systemmeldungen 
und Dialogtexte als Anlaß zu einer ersten Kritik nehmen, so 
bedenken Sie bitte», daß dies im Interesse eines uneingeschränkten 
Einsatzes von PROFI PASCAL und zwecks Verwendung einschlägiger 
und eindeutiger Fachbegriffe geschah. Nur so war ein Komplett- 
System "aus einem Guß" möglich. 


Zum Schluß möchte ich nicht vergessen, all denen, die direkt 
oder indirekt zu PROFI PASCAL und diesem Manual beigetragen 
haben, meinen herzlichen Dank aussprechen. Dieser gilt vor allem 
Herrn D. Tackmann, der in zahlreichen Diskussionen viele Ideen 
und Anregungen in dieses Programmpaket hat einfließen lassen. 
Mein Dank gilt aber auch Frau Mues für die gewissenhafte Durch¬ 
sicht des Manuskriptes. Widmen möchte ich diese Programm¬ 
entwicklung und das vorliegende Handbuch meiner Frau für die 
aufopfernde Geduld mit ihrem in PROFI PASCAL verbissenen Mann 
und ihre dankenswerte Unterstützung und Hilfe bei der Erstellung 
des druckreifen Textes. 


Köln, im Frühjahr 1985 


H. Schnepf 
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PROFI PASCAL 


1 DAS PROFI PASCAL - SYSTEM 

1.1 8YBTEM-VEREINBARUNGEN UND -VERHALTEN 

Nie bereits im Vorwort erwähnt, unterstützt PROFI PASCAL 
generell eine Konfiguration mit zwei Floppy-Disk-Stationen 1541; 
wobei mit einer einzigen Ausnahme (Duplizieren von Disketten 
unter PROFI PASCAL - Kontrolle) aber auch das Arbeiten mit nur 
einer 1541 voll gewährleistet ist. 

Die zweite 1541-Floppy ist als Device 9 zu installieren, was 
durch entsprechendes hardwaremäßiges Umschalten auf dem Floppy- 
board möglich wird. Im Rahmen von PROFI PASCAL werden die 
Floppy-Disk-Stationen als Drive 0 und Drive 1 angesprochen bzw. 
verwaltet, wobei mit Drive 0 die 1541-Floppy mit der Geräte¬ 
adresse 8 und mit Drive 1 die 1541-Floppy mit der Geräteadresse 
9 adressiert wird. Drive 0 fungiert innerhalb von PROFI PASCAL 
als Master - Systemlaufwerk, d.h. PROFI PASCAL erwartet in 
diesem Drive (Geräteadresse 8) die Systemprogramme wie 
Assembler, Compiler, Editor und Utility. Das File LOADDAT 
beinhaltet neben dem Systemprogramm (Boot-Software) noch eine 
Reihe kleinerer Hilfsroutinen, die von verschiedenen System¬ 
programmen aufgerufen werden, was die Verfügbarkeit dieses 
Programmfi1 es im Drive 0 unbedingt voraussetzt. 


Eine weitere Betrachtung muß sich auf den von der Tastatur 
erzeugten Zeichencode und die damit verbundene Bildschirm¬ 
wiedergabe beziehen. 

Grundsätzlich erwartet PROFI PASCAL für alle Buchstaben in 
Pascal-Befehlen und -Begriffen sowie in allen Bezeichnern 
(Identifiers) und Namen ABCII-Großbuchstaben, d. h. Buchstaben, 
deren ASCII-Code im Bereich 65 bis 90 ($41 bis $5A) liegt. 
Dieser Code wird immer von den ungeshifteten Buchstabentasten 
des C64 erzeugt. Nur bei der Ausgabe dieser Zeichen auf dem 
Bildschirm ist ein C64(Commodore)-spezifisches Verhalten zu 
beobachten. Im "Normalmodus" (Buchstaben/Graphik-Modus) werden 
diese Buchstabencodes in Großschrift dargestellt. Im "Schreib- 


- 1 - 



PROFI PASCAL 


modus" (Klein/Großschrift-Modus) werden diese Buchstaben dann 
allerdings im Gegensatz zur sonst üblichen Darstellungsweise 
durchgängig in Kleinschrift dargestellt. 

Nach dem Initialisieren von PROFI PASCAL wird dieser Modus 
eingeschaltet, damit Sie bei Strings und in der Druckausgabe die 
Möglichkeit haben. Groß- und Kl ei nschr i f t zu kombinieren. Die 
Pascal-Befehle, -Begriffe, -Bezeichner und -Namen werden also in 
diesem Modus geschlossen in Kleinbuchstaben wiedergegeben! Wie 
bekannt ist, kann jederzeit mit C=/SH1FT zwischen den beiden 
Darstellungsmodi hin- und hergeschaltet werden. 

Gleich an dieser Stelle möchte ich Sie auf die geringfügig 
erweiterte - aber allgemein eingeführte - Syntax für Pascal- 
Bezeichner aufmerksam machen. Diese Bezeichner sind die von 
Ihnen definierten Namen für Konstanten, Variablen (so auch File- 
Namen), Prozeduren, Funktionen usw. Die Syntax-Vorschrift 
besagt, daß die Bezeichner 

* aus 8 signifikanten Zeichen bestehen (sie unterscheiden sich 
in den ersten 8 Zeichen) 

* mit einem Buchstaben anfangen und mindestens aus diesem 
einem Zeichen bestehen müssen 

* die restlichen Zeichen aus Buchstaben und Ziffern bestehen 

müssen, wobei als einziges Sonderzeichen (« ASCII *5F) 

zugelassen ist, was auf dem C64 als '+' dargestellt wird. 

Die der Bi 1dschirmdarstel1ung entsprechende Druckerausgabe auf 
dazu geeigneten Printern (Commodore-Drucker oder mit 
entsprechenden Interfaces ausgerüstete andere Drucker) ist in 
PROFI PASCAL sichergestellt. Fremddrucker mit eigener Interface- 
Software können softwaremäßig angepaßt werden. 
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Eine dritte Anmerkung sei zur Eingabe von Direktkommandos und 
zur Beantwortung von Dialogtexten gemacht. 

Generell werden alle in PROFI PASCAL aufrufbaren Direktkommandos 
mit einem aus einem Buchstaben (ASCII-Code $41 bis $5A) 
bestehenden Kürzel, das sich fast ausnahmslos mnemotechnisch aus 
dem Befehlswort ergibt, aufgerufen, z. B. (» EDITOR) als 
Aufrufkommando für den Editor. 

Selbstverständlich ist ein solches Direktkommando - wie grund¬ 
sätzlich jede andere Eingabe auch - mit der RETURN -Taste 
abzuschließen. Bei der späteren Besprechung der einzelnen 
Kommandos und der damit verbundenen Dialogangaben bzw. -syntax 
wird dieser Abschluß mit RETURN nicht mehr im einzelnen erwähnt. 
Werden zur Ausführung des Direktkommandos weitere Angaben 
benötigt, so werden diese in der Regel im Dialog abgefragt, 
wobei die Angaben stets an der durch den Cursor markierten 
Stelle erfolgen. Vielfach werden bereits mit der Frage Vorgaben 
angezeigt, die direkt mit RETURN bestätigt werden können. 
Ansonsten besteht volle Editiermöglichkeit, bei der aber zu 
berücksichtigen ist, daß ein Verlassen der Eingabezeile oder ein 
Unterschreiten der Cursorposition zum Zeilenanfang hin unter 
Umständen eine ungültige, vom System nicht akzeptierte Eingabe 
erzeugen (C64-spezifischer Input vom Bildschirm). In diesen 
Fällen wird die weitere Befehlsausführung abgebrochen und das 
Kommando muß in korrekter Form wiederholt werden. 

Erwartet das System als Eingabe einen Zahlenwert - dies gilt im 
übrigen auch für die Pascal-Prozeduren READ bzw. READLN - so 
meldet das System bei einer nichtnumerischen Eingabe! 

' 1L.INPUT' 

und wartet auf eine neue richtige Zahleneingabe. Ein RETURN ohne 
zusätzliche Eingabe wird dabei als 0 interpretiert. Im übrigen 
können generell alle Integer-Zahleneingaben in dezimaler Form 
oder mit einem vorangestellten ^'-Zeichen in Hex-Notation 
eingegeben werden (z. B. 1024 = $0400). 
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Durch die Beschränkung der Integer-Zahlen auf den Bereichs 

-MAX INT. . +MAX1NT (-32767..>32767) 

lassen sich C64-interne Adressen im Bereich +32769..>65535 nur 
als negative Werte nach der bekannten Umrechnungi 

(Adresse minus 65536) 

eingeben, falls Sie nicht ohnehin in solchen Fällen lieber auf 
die Hex-Angabe zurückgreifen (♦8000..*FFFF). Für die Adresse 
♦8000 ist dies sowieso die einzige Möglichkeit. 

Bei der Eingabe von Real-Zahlenwerten (für READ und READLN ) ist 
die in Pascal vorgeschr i ebene Notation von Real-Zahlen zu 
beachten. 


Eine besondere Stärke von PROFI PASCAL ist die hohe Sicherheit 
des Systems gegenüber Fehleingaben und Irrtümern. Sie werden 
immer wieder überrascht sein, wie sehr PROFI PASCAL mitdenkt und 
Sie sicher um alle gefährlichen Klippen lotst. 
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1.2 DA8 LADEN DES 8YBTEMB 

Das Laden von PROFI PASCAL ist äußerst einfach. Nach dem 
Einschalten von Rechner und Floppy-Disk-Station ist die System¬ 
diskette ins Laufwerk 0 einzulegen und das Laufwerk zu 
schließen. Danach wird mit der Eingabe von: 

'LOAD"*",6,1 RETURN ' 

der Ladevorgang automatisch eingeleitet. Sollte nach einem 
versehent1ich eingegebenen: 

'LOAD"*",6 RETURN' 

der Rechner sich nur mit READY melden, so kann der weitere Lade¬ 
prozeß mit RUN RETURN gestartet werden. 


Nach Laden des AutostarterProgramms meldet sich der Rechner mit 


#### #### ##• ###*• # Copyright 

• •• •# •• • data backer 

# •• 0 # # • • ••• #• ###« ««• •• • 

#### ###• # • »••# • « « • ft 

• • # • • # • ftftft ftftft« ftft • ft«ftft • 

• ••••• • • • # •* •«# 

• # • MNP • • « # # ftftft# •«• • • #### 


PRESS ANY KEY 
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Nach Betätigung irgendeiner Taste wird die PROFI PASCAL-System- 
software mit -folgender Meldung in den Rechner geladeni 


L0AD1NG ... 


***** C=64 PASCAL - SYSTEM 5.3 ***** 
BY H. SCHNEPF 

COPYRIGHT BY DATA BECKER 
D—4000 DÜSSELDORF 

************************************** 


Nach Abschluß des Ladeprozesses wird der C64 -für Pascal 
initalisiert und anschließend die Systemmeldung generiert« 


* C=64 PASCAL-SYSTEM 5.3 * 


COMMANDS = 

A(SSEMBLER) 

C(OMPILER) 

E(DITOR) 

G(ETRAM) 


H(ELP) 
J(UMP) 

H(AP/DRIVE) 
P(UTRAM) 


R(UHPRGM) 

U(TILITY) 

H(RITESRCE) 


Sie befinden sich jetzt im MAIN-Rahmen von PROFI PASCAL, was 
auch jederzeit an dem sich mit dem @'-Zeichen meldenden Cursor 
erkennbar ist. Das nach dem Einschalten des Rechners vorliegende 
BASIC-Betriebssystem ist komplett gegen ein neues Betriebs¬ 
system, das -für PROFI PASCAL, ausgetauscht worden. Dieses 
Pascal-Grundsystem bleibt nun bis zum Ausschalten im Rechner 
betriebsfähig gespeichert. Im einzelnen handelt es sich dabei um 
den äußeren Kommandorahmen (das MAIN-Programm des PROFI PASCAL- 
Systems) und um das sogenannte RUNPAC, ein Konglomerat aus 
Maschinenprogrammtei1en und kompilierten Pascal-Programm¬ 
routinen, auf die später das eigene kompilierte Pascal-Programm 
zurückgreifen wird. 
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1.3 KURZBE8CHREIBUNB VON PROFI PASCAL 

1.3.1 RAIN 

Der MAIN-Rahmen von PROFI PASCAL stellt -folgende Direkt- 
kommandos/-aufrufe zur Verfügung: 

'A' (» ASSEMBLER) 

Aufruf zum Assemblierer! von 65X X-Assemb 1 er -Quel 1 Programmen . 

C <= COMPILER) 

Aufruf des Compilers zum Kompilieren von Pascal-Programmen. 

£ (= EDITOR) 

Aufruf des Editors zum Erstei 1en/Editi eren von Quel1 Programmen. 

0 (= GET FILE FROM DISC TO MEMORY) 

Laden eines Files von Diskette in den Speicher des C64. 

H <» HELP) 

Ausdrucken der Kommandoliste des MAIN-Rahmens. 

J <- JUMP) 

Ansprung von im Speicher befindlichen Maschinenprogrammen. 

H <*= MAP/DRIVE) 

Anzeige des Inhaltsverzeichnisses der Diskette. 

P <= PUT MEMORY AS FILE TO DISC) 

Abspeichern eines Speicherbereiches als File auf die Diskette. 

R <= RUN PROGRAM) 

Starten eines Pascal-Anwenderprogramm*. 

U <» UTILITY) 

Aufruf des Utilitys zum Bearbeiten von Files etc. 

H (« WRITE SOURCE) 

Seitenorientierte Ausgabe eines Quel1programmfi1 es unmittelbar 
von der Diskette auf einen Drucker. 
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1.3.2 DER AB8EMBLER 


Der Assembler erwartet das zu assemblierende 65XX-Assembler- 
Quel 1 programm in formatierter Ausführung auf der Diskette. Der 
Maschinencode wird direkt als File auf der Diskette erzeugt. 

Das Quellprogramm muß folgende Form haben« 

1 2 3 

-> Spaltenposition: ....5....0....5....0....5....0....5.. 


-> Textzeile 


1111 

S 

LLLLLLLL 


i ZZZZSLLLLLLLLSIIIS0G000000... 

■ Zeilen-Nr. 

■ Space (Leertaste) 

= Labelfeld 


mit max. 8 Zeichen gemäß Syntax für 
Pascal-Bezeichner. 

Nicht benutzte Plätze des Labelfeldes 
sind mit Leerzeichen (Spaces) zu füllen. 

III ■ Instruktionsfeld 


Operationscodes (Mnemonics) in 65XX- 
Assemb1 er-Notation t 


ASL 

BCC 

BCS 

BEQ 

BIT 

BMI 

BNE 

BPL 

BRK 

BVC 

BkS 


CLC 

CLD 

CLI 

CLV 

CMP 

CPX 

CPY 

DEC 

DEX 

DEY 

EOR 


INC 

INX 

INY 

JHP 

JSR 

LDA 

LÜX 

LDY 

LSR 

NOP 

ORA 


PHA 

PHP 

PLA 

PLP 

ROL 

ROR 

RTI 

RTS 

SBC 

SEC 

SED 


SEI 

STA 

STX 

STY 

TAX 

TAY 

TSX 

TXA 

TXS 

TYA 
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oder in Pseudo-Operationscode-Notationi 


.BA 

x= 

Begin Assembly 

.BY 

xs 

Insert Byte 

.CT 

SS 

Continue with Source ... 

.DL 

= 

Define Label 

.DS 

= 

Displacement 

.EN 

= 

End Assembly 

.EQ 

= 

Cond. Assembly: Equal 0 

.NE 

= 

Cond. Assembly: Not Equal 0 

.OC 

SS 

Objectcode Clear 

.OS 


Objectcode Set 

.SA 

cs 

Set Address 

. . . 

SS 

End of Cond. Assembly 


00000000...= Operanden*eld 

Als Operanden sind Labels, dez. Werte, 
Hex-Werte und - Verknüpfungen mit 
folgenden Adressierungsarten zugelassen: 


Operand 

SS 

absolut 

Operand,X 

= 

absolut indiziert X 

Operand,Y 

= 

absolut indiziert Y 

(Operand,X) 

= 

indiziert X indirekt 

(Operand),Y 

» 

indirekt indiziert Y 

(Operand) 

= 

indirekt absolut 

»Operand 

* 

Zeropage 

»Operand,X 

= 

Zeropage indiziert X 

»Operand,Y 

SS 

Zeropage indiziert Y 

#0perand 

= 

immediate 

#H,Operand 

3S 

immediate High-Byte 

#L,Operand 

- 

immediate Low-Byte 

A 

= 

implizit Accu 


Ein ' auf den Positionen 6, 15 oder hinter 0 leitet einen 

Kommentar in dieser Zeile ein. 
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1.3.3 DER COMPILER 

Der Compiler erwartet das zu kompilierende Pascal-Quel1programm 
auf der Diskette. Der erzeugte Programmcode (Pascal-Pcode) wird 
wahlweise im Speicher des C64 oder auf der Diskette erzeugt. 


Standardmäßig werden 

die folgenden Mortsymbole 

(reservierte 

Worte) im 

Pascal-Programm akzeptiert und kompiliert« 


Wortsvmboles 




AND 

DO 

FUNCTION 

NIL PROGRAM 

TYPE 

ARRAY 

DONNTO 

GOTO 

NOT RECORD 

UNTIL 

BEGIN 

ELSE 

IF 

OF REPEAT 

VAR 

CASE 

END 

IN 

OR SET 

NHILE 

CONST 

FILE 

LABEL 

PACKED*) THEN 

N1TH 

D1V 

FOR 

MOD 

PROCEDURE TO 




*)PACKED 

wird nicht explizit 

kompi1iert! 


Neben diesen Mortsymbolen sind 

die folgenden Standard-Bezeichner 

implementiert und 

zugelassen s 




Konstanteni 

FALSE, 

MAXINT, 

TRUE, 


Typen» 

ALFA, 

BOOLEAN, 

CHAR, 

INTEGER, 


REAL, 

TEXT, 



Variablen» 

INPUT, 

OUTPUT, 



Prozeduren» 

GET, 

NEN, 

PUT, 

READ, 


READLN, 

NRITELN, 

RESET, 

RENRITE, 

NRITE, 

Funktionen» 

ABS, 

ARCTAN, 

CHR, 

COS, 


EOF, 

EOLN, 

EXP, 

LN, 


ODD, 

ORD, 

PRED, 

ROUND, 


SIN, 

TRUNC, 

SQR, 

SQRT, 

SUCC, 
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Daneben werden alle im "Pascal User Manual and Report" erwähnten 
standardmäßigen Zeichensymbole in der dort beschriebenen Art vom 
Compiler aufgenommen und übersetzti 


Zeichensvmbole: 


* 

/ ; 

t = s 


= < [ 

<> <* J 

> ( i 

; > 


(* 

*> 


über diesen Sprachumfang hinaus sind in PROFI PASCAL folgende 
zusätzliche Befehle, Bezeichner und Zeichensymbole vereinbart, 
bzw. in ihrer Bedeutung erweitert worden: 


Reservierte Wortes 


AND 

ELSE 

HOT 

OR 

SHL 

SHR 

USERFUNC 

USERPROC 

XTRNFUHC 

XTRHPRGM 

XTRHPROC 


verknüpft auch BYTE-Werte. 

auch als Andernfal1s-Verzweigung im CASE-Statement. 
negiert auch BYTE-Werte. 
verknüpft auch BYTE-Werte. 

schnelle Integer-Multiplikation mit Faktoren 2~n 
(n * 0..16) ohne über 1 auf Überwachung. 

schnelle Integer-Division mit Divisoren 2^n 
(n = 0. . 16) . 

deklariert eine externe, in Maschinensprache 

abgefaßte Funktion. 

deklariert eine externe, in Maschinensprache 

abgefaßte Prozedur. 

deklariert/definiert eine externe Pascal-Funktion. 

deklariert ein externes Pascal-Programm. 

dek1ariert/definiert eine externe Pascal-Prozedur. 
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Ver einba r te 

Konstanten; 

PI 

STKP01 

Typen: 

BYTE 

STRING 

Variablen; 

HEM 

RANDOM 

Prozeduren; 

ALLOCATE 

CLOSE 

C0NT1NUE 

CLRTRAP 

EXECUTE 


Bezeichner s 


REAL-Konstante pi . 

Zeiger auf den aktiven Pascal-Variab1enstack zur 
Verwendung in Maschinenspracheroutinen. 


1-Byte-Brößen, deren Werte mit '# -Zeichen markiert 
sind (Werteumfangs #0..#255 = #*00..#*FF). 
dynamische String-Größen, die intern "pascal-1ike" 
als: RECORD L:BYTE;CHRS:C#0..LJ OF CHAR END 

definiert sind. 


kann als Types ARRAYC$0000..$FFFFJ OF BYTE 

betrachtet werden und wird zum direkten Speicherzu¬ 
griff benutzt (ähnlich PEEK und PGKE). 
liefert immer einen neuen zufälligen Real-Wert im 
Bereich 0..<1; kann auch für Wiederholungsfolgen 
immer wieder beliebig initialisiert werden. 


zwangsweises Setzen einer Pointer-Variablen auf 
eine Adresse unter Kontrolle des Anwenders, 
schließt ein mit RESET oder RENRITE geöffnetes File 
schreibt letzten Buffer und gibt Buffer frei, 
lädt ein Pascal-Programm von der Diskette nach und 
startet dieses Programm (ohne Spei eherkol1ision!). 
löscht die Runtime-Errorfal1e für I/O-Fehler, 
lädt ein Pascal-Programm von der Diskette nach und 
ruft es als Unterprogramm auf (Speieherkol1ision 
beachten!). 
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HEX 

1NDVC 

KILL 

LOCK 

LOAD 


MARK 

NAME 

OUTDVC 

RELEASE 

SEEK 

SET ADR 

SETDRV 

SETTRAP 


erzeugt mit Integer— oder Byte-Parameter in HR1TE 
eine Ausgabe in Hex-Notation. 

gestattet Umlenken des Inputs (Ändern von Primär- 
und Sekundäradresse des Input-Devices), 
löscht ein ungeschütztes File auf der Diskette, 
wie CLOSE mit zusätzlichem Sichern des Files, 
lädt externe Pascal-Programme, -Prozeduren oder 
-Funktionen von der Diskette in den Speicher, über¬ 
gibt dem laufenden Pascal-Programm die Startadresse 
der geladenen Routinen. 

sichert den aktuellen Haldenpointer (Heap). 

weist einem File anstelle des formalen Bezeichners 

einen aktuellen Namen zu. 

gestattet analog zu INDVC das Umlenken des Outputs 
auf andere Geräteadressen. 

setzt den Haldenpointer auf den mit MARK festgehal¬ 
tenen Wert zurück. 

positioniert den File-Zugriff auf ein bestimmtes 
File-Element. 

definiert die Startadresse einer externen Pascal- 
oder Maschinenroutine. 

definiert ein Laufwerk für einen File-Zugriff, 
schaltet (setzt) die Runtime-Fehlerfal1e für I/O- 
Fehler ein. 


Funktionen 6 


ANYKEY 

EOF 

FRAG 

FREE 

GETKEY 


gibt Auskunft, ob Tastatureingabe vorgenommen wurde 
<:BOOLEAN). 

fragt ohne nähere File-Bezeichnung, also als EOF 
(INPUT), die BREAK-T aste (STOP) ab < a BOOLEAN ). 
liefert den Nachkommateil einer Real-Größe 
< aREAL). 

liefert den auf dem Pascal-Variab 1enstack verfüg¬ 
baren Speicherplatz (a INTEGER). 

liest aus dem Tastaturpuffer die anstehende nächste 
Taste, falls eine betätigt wurde, andernfalls wird 
darauf gewartet <t CHAR). 
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HBYT 

HXS 

INT 

IOERROR 


LOCALITY 

LOH 

LBYT 

LEN 

ROUND 

SIGN 

SIZE 

TRUNC 


lie-fert das High-Byte eines Integer—Wertes (mBYTE). 
(=Hexsumme), addiert zwei Integer-Größen ohne über— 
1 auf Überwachung (für Adreßrechnungeni INTEGER ). 
wandelt - falls möglich - einen Real-Wert in eine 
Integer-Große, sonst ' IL.QUANT.ERROR ' (i INTEGER ). 
gibt Auskunft über den Verlauf des letzten Input-/ 
Output-Prozesses <« INTEGER) mit folgenden Aussageni 

O = OK 

1 = FLOPPY ERROR 

2 = NOT OPEN ERROR 

3 = NOT CLOSED ERROR 

4 = BUFFER OVERFLOH ERROR 

5 = DIRECTORY OVERFLOH ERROR 

6 * NOT FOUND ERROR 

7 = DISC. OVERFLOH ERROR 

8 = DISC. MISMATCH ERROR 

9 * ILLEG. FILE-OPERATION ERROR 

10 = AFTER EOF ACCESS ERROR 

11 = IEEE-ERROR 

liefert den aktuellen Speicherplatz einer Pascal- 
Variablen (i INTEGER). 

wandelt - falls möglich - einen Integer-Wert oder 
eine 1-Byte-Größe in eine Byte-Größe, 
sonst: ' IL. QUANT. ERROR ' (i BYTE). 

liefert das Low-Byte eines Integer-Wertes (i BYTE). 
liefert die Länge einer String-Größe (: INTEGER ). 
liefert im Gegensatz zu Standard-Pascal einen ge¬ 
rundeten ganzzahligen Real-Wert beliebiger Größe 
(a REAL ). 

liefert das Vorzeichen eines Integer— oder eines 
Real-Wertes (: INTEGER ). 

liefert den für eine Pascal-Variable erforder1ichen 
Speicherplatz (Anzahl Bytes) (: INTEGER). 
liefert im Gegensatz zu Standard-Pascal den ganz¬ 
zahligen Anteil einer Real-Größe (i REAL). 
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Stukturierunas-Anwei«ungen» 

Zu diesen Befehlen und Bezeichnern kommen noch weitere 

Anweisungen für die Strukturierung von Pascal-Programmen: 

FORM ARD für Vorwärtsverweise gemäß "Pascal User Manual and 

Report". 

SEGMENT zum Segmentieren von Pascal-Programmen zwecks 

Speicherplatzreduzierung (Over 1ay-Technik). 

ASSEMBLE als Anweisung, daß der folgende Teil des Pascal- 
Programms als Assembler-Quel1text zu verstehen und 
als eingebettete Maschinenroutine zu übersetzen 
ist. 


Compiler-Direktivem 

Des weiteren werden mit Hilfe der standardmäßigen Zeichensymbole 
die File- und Array-Variab1en so differenziert detai1bezeichnet, 
daß darüber sowohl der Random-Zugriff in ein File möglich ist 
als auch auf Array-Slices zugegriffen werden kann. 


Eine weitere Ergänzung stellen die Steuerungskommandos an den 
Compiler dar» 


&ADR+ schaltet die zeilenweise Adreßausgabe bei der 

Kompilation des Pascal-Programms ein. 

& ADR- schaltet die Adreßausgabe aus. 

StC-ONT 1NUE weist den Compiler an, die Kompilation mit dem 
angegebenen Quellfile fortzusetzen. 

weist den Compiler an, das angegebene Quellfile in 
den laufenden Kompilations-Prozeß einzufügen, 
schaltet das mnemotechnische Ausgeben des erzeugten 
PCodes ein. 

schaltet die PCode-Anzeige aus. 

bedingte Kompilation (der folgende Programmteil 
wird zutreffendenfal1s kompiliert). 


StINCiUDE 


&PCQDE+ 


StPCODE 

StTRUTH 
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Fehlermeldungen» 

Die Standardfehlermeldüngen des Compilers gemäß "Pascal 
Manual and Report" wurden um folgende Meldungen ergänzt» 

22: ‘expected 

23: '•' expected 

24: or ')' expected 

25: BOOLEAN constant expected 

60: PROGRAM incomplete 

182: Parameter list of extern PRGM not alloNed 

183: LOAD/SET ADR only for externals 

184: Externais without address-definition 

185: Slice-ARRAY must be CHAR or BYTE type 

186: SLICE /= SLICE not alloMed 

207: BYTE-const too large 

208: Error in BYTE-const 

209: Error in HEX-const 

210: Error in numeric const 

400: FILE-elernent too long 

401: STRINGS not allowed here 

402: Too many identifiers 

403: READLN/NR1TELN only Nith TEXT 

405: Too many Segments 

406: Nested segments not allowed 

407: Separated segments not allowed 

408: Compiling of segmented PRGMS to RAM not alloNed 

409: Too many Parameters 

410: Error in '&'-Option 

411: Too many nested sources 


User 
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Runtime-Meldüngen: 


An Runtime-Fehlern, die in Klartext ausgegeben werden, können 
zusätzlich zu den unter der Funktion IOERROR auf gef ührten noch 
auftretens 


OUT OF RNG. 
NOT EXQ. 
NUN. OV. 

BAD SUBS. 
ILL.QUANT. 
STK. OV. 
ZERO D1V. 
ILL. DVC. 


Bereichsüberschreitung bei Zahlen 

Nicht ausführbarer PCODE 

Arithmetischer Überlauf 

überschreitung der Index-Grenzen 

Unzuläßiger Wert 

Überlauf des Variablenstacks 

Division durch 0 

Unzulässige Geräteadresse 


Qptionen; 


Folgende Optionen können beim Start des Compilers gewählt werden 
(die angegebenen Werte sind die Vorsch1agswerte für den Normal¬ 
fall): 


Programmstart 

Startadresse der Halde 

Maximaladresse des Variab1enstacks 


($0800) 

< Programmende) 
(♦9000) 


Kompi1ationsmodus 

Speicherplatz für Kompilat 

Bereichsgrenzentest (für Index usw. ) 


(Floppy) 

(♦9000) 

(Ja) 


, falls RAM: 


File für Post-Mortem-Dump 

Name des Post-Mortem-Fi1 es 


(Nein) , falls Ja: 

<P_M_DUMP> 


Ignorierung der ADR-/PC0DE-0ption (Ja) 
Unterdrücken des Programmlistings (Ja) 
Unterdrücken der Druckerausgabe (Ja) 
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1.3.4 DER EDITOR 

Mit dem Editor werden die Quel1 Programme bi 1dschirmorientiert 
erstellt. Die Zeilennummer dient dabei lediglich als Ordnungs¬ 
kriterium und ist/wird nicht Bestandteil des Quel1 Programms. 
Jede mit einer Zahlenangabe angefangene Zeile wird durch RETURN 
als Programmzei1e übernommen und entsprechend der Nummer 
eingeordnet (wie beim Erstellen von BASIC-Programmen). Es stehen 
•folgende Befehle zur Verfügung, die ggf. direkt mit Parameter 
(hinter '*') einzugeben sindi 

Al <= APPEND FILE) 

Anhängen von auf der Diskette befindlichen Quel1 Programmen an 
das im Editor vorhandene Programm. 

Ci' (« CHANGE) 

Ändern der hinter angegebenen beliebigen Zeichenfolge gegen 

eine andere, nach der das Programm explizit fragt. 

V (» DELETE) 

Löschen von Zeilens 


D 


... löscht 

al 1 es 

D 

xxxx 

... 1öscht 

Zeile xxxx 

D 

- xxxx 

... 1öscht 

bis Zeile xxxx 

D 

xxxx - 

... 1öscht 

ab Zeile xxxx 

V 

xxxx - yyyy 

... 1öscht 

Zeilen xxxx bis yyyy 


Fi ' (= FIND) 

Suchen und Listen der Zeilen, in denen die hinter '» ' angegebene 
beliebige Zeichenfolge enthalten ist. 

Ot (« GET SOURCE FROM DIBC) 

Laden eines Quel1 Programms von der Diskette in den Editor. 

M (= HELP) 

Ausdrucken der Kommando-Liste des Editors. 

L' <* LIST) 

Listen von Zeilen; mit denselben Parameter-Angaben wie bei ' . 
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N' <« MAP/DRIVE) 

Anzeige des Inhaltsverzeichnisses der Diskette, Definieren des 
Laufwerks für den 'As'-, ' Gt 'Pt'- und ' Us ' -Zugriff. 

H <* AUTO-NUMBERING) 

Automatisches Generieren von Zeilennummern in 5er-Schritten ab 
der als Parameter anzugebenden Startzeile (Nxxxx ). 

0 <« OUTPUT-DEVICE) 

Umlenken der Ausgabe auf ein anderes Ausgabegerät zwecks 
Erstellung einer Hardcopy-Unter 1age. 

0 ... Bi 1dschirm 

04,0 ... Drucker 

Pf' <■ PUT SOURCE TO DISC) 

Abspeichern eines Quel1 Programms aus dem Editor auf die Diskette 
(Achtung! Ein File gleichen Namens auf der Diskette wird dabei 
übersehrieben). 

Q <= QUIT) 

Verlassen des Editors und Rücksprung in den MAIN-Rahmen. 

R <- RENUMBER) 

Umnumerieren der Zeilennummern in 5er-Schritten, startend mit 
Zeilen-Nr. 1000. 

'S' <« SHIFT LINE) 

Verschieben von Bereichen innerhalb des Quel1 Programms 
(S xxxx - yyyy s zzzz ... Zeilen xxxx bis yyyy werden hinter 
die Zeile zzzz geschoben). 

Ui ' <= UPDATE FILE) 

Anhängen des im Editor befindlichen Quel1 Programms an ein 
anderes auf der Diskette befindliches File. 

V‘ <«= VACANCV) 

Angabe des für weitere Texteingabe noch verfügbaren Speicher— 
Platzes. 
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1.3.5 DAS UTILITY 

i 

Mit dem Utility können die Files auf der Diskette verwaltet 
sowie einige nützliche Monitor-Kommandos ausgeführt werden. Als 
Arbeitsspeieher steht im Utility der Bereich *4000 bis *C200 zur 
Verfügung und kann als durchgehendes RAM beliebig benutzt 
werden. Im einzelnen sind folgende Befehle möglich« 

'A‘ <= ADVICE) 

Abrufen einer gegebenenfalls zu einem File besonders 
eingegebenen beliebigen Zusatzinformation (Datum, Versions-Nr., 
Anmerkungen usw.). 

<■= BLOCKT ABLE) 

Anzeige der Blockbelegung der Diskette. 

C‘ ( = COPY FILE) 

Kopieren eines Files von einer Diskette auf eine andere. 

V <- DUPLICATE DISC) 

Duplizieren einer ganzen Diskette (unter PROFI PASCAL nur bei 
Verfügbarkeit von Drive 0 und 1). 

' f ' («= ENTER SECTOR) 

Abspeichern eines beliebigen Sektors (® 512 Bytes) aus dem 

Speicher auf die Diskette. 

' F ' (» FETCH SECTOR) 

Laden eines beliebigen Sektors (<= 512 Bytes) von der Diskette in 
den Speicher. 

‘ 6 ‘ <« GET FILE FROM DISC TO MEMORY) 

Laden eines Files von Diskette in den Speicher. 

’H' (= HELP) 

Ausdrucken der Kommandoliste des Utilitys. 

'I' (« INSERT ADVICE) 

Eingeben einer besonderen Zusatzinformation (als Advice) zu 
einem File auf der Diskette. 
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J‘ (=» JUMP) 

Anspringen eines beliebigen Programms im Speicher. 

‘K‘ <« KILL FILE) 

Löschen eines Files auf der Diskette. 

L <= LOCK FILE) 

Sichern eines Files auf der Diskette gegen Löschen oder 
überschreiben. Derart geschützte Files erscheinen im Inhalts¬ 
verzeichnis besonders markiert (invers). 

H <« MAP/DRIVE) 

Anzeige des Inhaltsverzeichnisses der Diskette, Definieren des 
Arbeitslaufwerks für die ' A'- , 'B'- f 'F'-p 'I'-, 'K'-, 

'L'-, ’R'-p ’U'-f 'X'- und * Z' -Kommandos. 

H (= NEW MAP) 

Generieren eines neuen Inhaltsverzeichnisses (ggf- mit 

Disketten-Formatierung und System-Disk.-Erzeugung). 

0 <= ORGANIZE DISC) 

Neuorganisieren von Diskettenverbundenj Zusammenbinden zweier 
Disketten zu einem Verbund mit doppelter Speicherkapazität (nur 
bei Verfügbarkeit von Drive 0 und 1). 

P <«= PUT MEMORY AS FILE TO DISC) 

Abspeichern eines Speicherbereiches als File auf die Diskette. 

Q (= QUIT) 

Verlassen des Ut i 1 i ty-F’rogr amms und Rücksprung in den MAIN- 
Rahmen. 


R <= RENAME FILE) 

Umbenennen eines Files. 

S (« STORE BYTE INTO MEMORY) 

Eingeben eines Wertes in eine beliebige Speicherzelle des 
Rechners (ähnlich POKE). 
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T <« TRANSFER MEMORY-PAGES) 

Verschieben eines beliebigen, 256 Bytes umfassenden Bereiche® 
innerhalb des Speichers. 

U' <« UNLOCK FILE) 

Aufheben des Schutzes eines gegen Löschen/überschreiben 

gesicherten Files. 

V <- VIEW MEMORY) 

Auf listen eines beliebigen Speicherbereiches des Rechners sowohl 
in Hex-Notation als auch - soweit sinnvoll - in ASCII-Klartext 
(Memory-Dump). 

W <» WRITE DIRECTORY) 

Ausgabe eines mit allen Zusatzinformationen versehenen Inhalts¬ 
verzeichnisses der Diskette. 

X' <“ 'XCLUDE BLOCK) 

Sperren eines Blockes der Diskette gegen jedwede weitere 

Benutzung. 

7' <* FILE-DUMP) 

Auf listen eines auf der Diskette befindlichen Files sowohl in 
Hex-Notation als auch - soweit sinnvoll - in ASCII-Klartext. 

’Z‘ <» RELEASE BLOCK (SET ZERO)) 

Freigeben eines gesperrten oder benutzten Blockes auf der 
Diskette zur erneuten Benutzung. 
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1.4 PROFI PABCAL IN DER PRAXIB/BYBBEN 

Wie bereits eingangs erläutert, unterstützt PROFI PASCAL das 
Arbeiten mit zwei Fl oppy-Di sk-Lau-f wer ken und ist im Hinblick aut 
die Ausführung sämtlicher verfügbarer Befehle auch darauf 
ausgerichtet. Andererseits sind jedoch die in Kauf zu nehmenden 
Einschränkungen bei der Arbeit mit nur einem Laufwerk so minimal 
- erst recht bei der Beachtung der hier aufgeführten Hinweise -, 
daß man eigentlich schon nicht mehr von Einschränkungen reden 
kann. Sie liegen hauptsächlich im unter Pascal-Kontrol1e 
auszuführenden Duplizieren von Disketten und bei der Zusammen¬ 
bindung von zwei Disketten zu einem Di sketten verbünd ('£>'- und 
'ö'-Kommando des Utilitys). Beim Kopieren von Einzelfiles <'C'- 
Kommando des Utiliys) kommt bei der Arbeit mit nur einem Lauf¬ 
werk lediglich das Austauschen der Disketten gegenüber der 
Arbeit mit zwei Laufwerken hinzu. 

Doch wie dem auch sei, die folgenden Ratschläge sollen den 
Umgang und die Arbeit mit dem PROFI PASCAL - System vereinfachen 
und erleichtern. 


Zunächst sei nochmals daran erinnert, daß das Kopieren der 
Originaldiskette bei Berücksichtigung des Copyrights für den 
Eigenbedarf zwar möglich ist, aber Compiler und Assembler auf 
den Kopien nicht korrekt laufen. Dagegen sind alle anderen 
Programme, die zum PROFI PASCAL - System gehören, voll 
funktionsfähig und können auf Sicherheitskopien ganz normal 
benutzt werden. 


Aufgrund der Segmentierung (Over 1ay-Technik) des Compilers muß 
sich während des Kompilierens die Originaldiskette im System¬ 
laufwerk (Drive 0) befinden. Aus ähnlichen Gründen gilt dies 
auch für den Assembler während des Assemblierens. Da aber 
darüber hinaus das zu kompilierende oder zu assemb1ierende 
Quellfile verfügbar sein muß, und die erzeugten Pascal- oder 
Maschinenprogramme auf diese Source-Diskette geschrieben werden, 
ist es bei Verwendung nur eines Diskettenlaufwerks erfOrder 1ich, 
das Quellfile auf der Originaldiskette (Systemdiskette) 
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abzuspeiehern. Aus Platzgründen und zur Schonung der 
Originaldiskette beim Arbeiten mit Editor und Utility oder beim 
Aufruf der eigenen erstellten Programme sollten Sie die 
Systemdiskette also nur zum Kompilieren oder Assemblieren 
benutzen. 

Es bietet sich deshalb an, für die jeweiligen Einsatzzwecke 
spezielle Disketten anzulegen. Im einzelnen könnte das wie folgt 
geschehen s 

a) BABI8DI8KETTEN 

Erstellen mehrerer Basisdisketten mit dem Programm BYBGEN, das 
mit dem R -Kommando aus dem MAIN-Rahmen aufgerufen wird. Das 
Programm meldet sich mit folgendem Kopf und fragt nach dem Lauf¬ 
werk, in dem die Basisdiskette generiert werden sol1i 

* PASCAL-SYS.DISC. GENERATOR * 

****#*#*#*##*|/S 5.3*****#*#*#*#* 

DRIVE = 0' 

wobei als Vorgabewert Drive 0 ausgegeben wird. Anschließend ist 
auf 


‘D1SC TITLE = ' 

der Name für die zu erzeugende Basisdiskette einzugeben. 

Danach werden Sie mit der Meldung 

'INSERT DISC INTO DRIVE X/‘ 

' ... PRESSt " RETURN " IF DONE/' 

aufgefordert, eine Diskette - formatiert oder unformatiert - in 
das angegebene Laufwerk X einzugeben und das Einlegen mit einem 
Druck auf die RETURN-TAnte zu quittieren. 
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Zar Sicherheit läßt «ich das SYSGEN-Programm nochmal« mit der 
Frage 

SURE TO REHR1TE THE Dl SC ? Y/N ' 

bestätigen, daß Sie das Generieren einer Basisdiskette und das 
gg-f. damit verbundene über schrei ben -früherer Aufzeichnungen 
akzeptieren. 


Ist die« der Fall, beginnt das Programm zunächst mit der 
Formatierung der Diskette, legt das Pascal-Directory unter dem 
eingegebenen Namen an und erzeugt auf der Diskette das 
Systemfile LOADDAT. 

ACHTUNG! 

Eine so - und nur so - generierte Basi«diskette ist als Pascal- 
Diskette brauchbar, da nur sie die für den schnellen Disketten¬ 
zugriff erfOrder 1iche Floppy-Software enthält. Darüber hinaus 
können diese Disketten aus dem "jungfräulichen" Rechnerzustand 
bis zur Meldung des MAIN-Rahmens hochgefahren werden, da sie die 
gesamte Boot-Software (Auto-Startprogramm) für das PROFI PASCAL- 
System beinhalten. Wichtig dabei ist, daß das File LOADDAT, das 
auch das PROFI PASCAL - Betriebssystem enthält, stets als erstes 
File im Directory und auf der Diskette abgespeichert wird - so 
wie es von SYSGEN angelegt wird -, da das Hochfahrprogramm von 
diesem Sachverhalt ausgeht. 


Auch können das Neuanlegen eines Pascal-Directorys mit dem ' N ‘- f 
da« Duplizieren von Disketten über das ' Z?' - und das Herstellen 
eines Diskettenverbundes über das 'O'-Kommando des Utilitys nur 
unter Verwendung solcher Basisdisketten vorgenommen werden. 
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Falls beim Formatieren und Generieren der Basisdi«kette ein 
Schreib-/Lesefehler auf der Diskette auftritt, wird mit der 
nachfolgenden Fehlermeldung das Generieren der Diskette 
abgebrochen a 

F0RMAT1NG- OR FLOPPY-ERROR/' 

EXECUTION NOT SUCCESSFUL /' 

danach meldet sich das Programm SY6GEN - wie auch bei einem 
erfolgreichen Ablauf - mit der Auswahlmöglichkeit 


'REPEAT N1TH ANOTHER Dl SC ? N/Y' 

eine weitere Diskette zu generieren oder das Programm mit dem 
Rücksprung in den MAIN-Rahmen zu beenden. 


b) BT AhMD18KETTEN 

Jetzt können unter Verwendung der Basisdi«ketten mit Hilfe des 
Utility-Kommandos 'C' (= COPY) beliebige Stammdisketten erzeugt 
und verwaltet werden, z. B. i 

Eine Editordiskette 

mit den Files LÜADDAT und C_EDITOR. Auf solchen Disketten 
werden die zu erstellenden Pascal- und/ oder Assembler-Quel1- 
programme entwickelt, editiert und archiviert. 

Eine Utilitydiskette 

mit den Files LOADDAT, C_UTILIT, SY3GEN und P_M_DUMP (nähere 
Ausführung hierzu unter 4.6). Dies wäre die Diskette für die 
unmittelbare Systemarbeit. 

Eine Programmdiskette 

mit dem File LÜADDAT und den kompilierten Pascal Programmen 
und/oder assemblierten Maschinenprogrammen. Dies wäre die 
Diskette mit den Anwenderprogrammen, die in dieser Art 
selbstverständlich auf Jedem C64 sofort lauffähig sind und 
dazu keine weiteren Files der Griginaldiskette benötigen. 


- 26 - 



PROFI PASCAL 


Wenn sie Ihr Hauptprogramm auf einer solchen Diskette unter 
dem Namen STARTUP eintragen, so wird dieses automatisch beim 
"Hoch-fahren" von PROFI PASCAL geladen und gestartet. Sie 
brauchen dann in der BASIC nur 'LOAD "RETURN’ einzu¬ 
geben und Ihr Hauptprogramm (STARTUP) wird sich melden. 


c) COMPILERDIBKETTE 

Wenn Sie sich von der Originaldiskette die verschiedenen 
Programme, mit Ausnahme des auf Kopien nicht lauffähigen 
Compilers bzw. Assemblers, einwandfrei und funktionsfähig auf 
Stammdisketten und Sicherungsduplikate gezogen haben, können 
diese von der Originaldiskette gelöscht werden (' K '-Kommando des 
Utilitys). Danach bietet die Originaldiskette, auf der sich nur 
noch die Files LOADDAT, C_CPLR (Compiler) und C_ASMBLR 
(Assembler) befinden, mit 27 freien Blöcken (* 108 KBytes) 
ausreichend Platz für das Kompilieren und/oder Assemblieren 
größerer Programme. Dafür muß zunächst da® Quel1programm auf die 
Originaldiskette kopiert werden - falls nicht ein zweites 
Floppylauf werk (Drive 1) für das Lesen des Sourcefiles und das 
Schreiben der Programmcodes verfügbar ist. Nach erfolgreieher 
Übersetzung des jeweiligen Programms können der erzeugte 
Programmcode von der Originaldiskette auf die vorgesehene 
Programmdiskette kopiert werden und die Originaldiskette - falls 
erforderlich - wieder freigemacht werden. 

ACHTUNG! 

Während des Kompi1ierens/Assemblierens werden vom Compiler drei 
bzw. vom Assembler ein temporäre(s) File(s) auf der Diskette 
angelegt, auf der sich das Quel1programm befindet. Es müssen 
dafür noch mindestens 3 (1) Blöcke auf dieser Diskette, die ja 
bei der Arbeit mit nur einem Laufwerk die Originaldiskette ist, 
vorhanden sein. Das erste temporäre File (CODDAT) wird nach dem 
erfolgreichen Kompilieren (Assemblieren) das erzeugte Programm¬ 
codefile, während die beiden temporären Files des Kompilations¬ 
prozesses wieder gelöscht werden. Nur bei einem Kompi1ations- 
abbruch können diese Files unter Umständen noch auf der Diskette 
eingetragen sein, werden aber bei der nächsten Kompilation 
wieder übersehrieben. 
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Die hier wiedergegebenen Ausführungen erscheinen auf den ersten 
Blick äußerst kompliziert und aufwendig. Ihre Beachtung in der 
Praxis ist aber auch für den Anfänger und Ungeübten sehr schnell 
und einfach zu beherrschen und zu meistern, zumal in der 
Eingewöhnungs- und Einarbeitungsphase auch für Programme bis zu 
mittlerer Größe zunächst ausschließlich auf einer einzigen, der 
Originaldiskette, gearbeitet werden kann. 

Es ist nur darauf zu achten, daß die Originaldiskette nicht 
durch äußere Einwirkung oder Diskettenmanipulationen außerhalb 
des Pascal-Systems zerstört wird. 


Und nun viel Spaß mit 


PROF I PASCAL ! 
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2 DER MAIN-RAHMEN 


Der MAIN-Rahmen ist der äußere Kommandorahmen von PROFI PASCAL, 
aus dem auf der einen Seite die ver schi edenen Systempr ogr amme 
wie Assembler, Compiler, Editor usw. aufgerufen werden können, 
andererseits das gewünschte Anwenderprogramm gestartet werden 
kann. Nach Ablau-f des betreffenden Anwenderprogramms springt 
dieses automatisch mit der ÖK'-Meldung wieder in den MAIN- 
Rahmen zurück. Die Kommandoebene des MAIN-Rahmens ist stets an 
dem sich mit einem '-Zeichen meldenden Cursor erkennbar. 

Darüber hinaus besteht die Möglichkeit, auf recht einfache Art 
und Meise Spei eherberei che des Rechners direkt aus einem File 
von der Diskette zu füllen oder umgekehrt einen Speicherbereich 
als File auf der Diskette abzuspeiehern. 


Beim Aufruf des MAIN-Rahmens wird der folgende Meldetext ausge¬ 
geben s 


* C=64 PASCAL-SYSTEM 5.3 * 


COMMANDS = 

A(SSEMBLER) 

C(OMPILER) 

E(DITOR) 

G(ETRAM) 


H(ELP) 

J(UMP) 

M(AP/DRIVE) 
P(UTRAM) 


R(UHPRGM) 

U(TILITY) 

N(RITESRCE) 


Wie aus dieser Systemmeldung des PROFI PASCAL - Systems hervor¬ 
geht , können auf der äußeren Kommandoebene die im folgenden 
detailliert beschriebenen Direktkommandos eingegeben werden. In 
diesem Zusammenhang sei nochmals darauf hingewiesen, daß jedes 
Kommando und jede Nachfrage nach Parametern nach deren Eingabe 
mit einem RETURN abzuschließen sind. 
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2.1 DIE BEFEHLE DES MAIN-RAHMENB 

2.1.1 'A' (- A88EMBLER) 

Mit diesem Kommando wird der im PROFI PASCAL - System 
eingebettete 65XX-Assembler aufgerufen. Mit diesem Assembler 
können 65XX-Assembler-Sources (Maschinempracheprogramme) in 
lauffähigen 65XX-Maschinencode übersetzt werden. Der Assembler 
erwartet das Assembler-Quel1programm (Source) als Textfile auf 
der Diskette. Aus diesem Grunde fragt das System nach Eingabe 
des 'A'-Kommandos sowohl nach dem Namen des zu assemblierenden 
Programms als auch anschließend nach dem Laufwerk, in dem sich 
die zugehörige Diskette befindet: 

' F1LE-T1TLE = ?' 

DRIVE(MAP) = x‘ 

Als Vorschiagswert x wird bei der Laufwerksangabe das zuletzt 
benutzte Laufwerk vorgegeben, so daß in der Regel nur mit einem 
RETURN geantwortet werden muß. 


Anstelle des aktuellen File-Namens kann bei der betreffenden 
Frage auch mit geantwortet werden, was den Assembler an¬ 
weist, das unmittelbar zuvor mit dem Editor bearbeitete Textfile 
zu assemblieren. Für die jetzt überflüssige Laufwerksangabe 
bittet das System um Bestätigung unter Nennung des zuvor 
verwendeten File-Namens und der zugehörigen Laufwerksnummert 

'CONFIRM "FILENAME,DR1VE_NR"? N/Y' 

Bei fehlender Bestätigung oder sonstigen fehlerhaften bzw. 
ungültigen Angaben wird der weitere Aufruf des Assemblers 
ignoriert und Sie verbleiben auf der Kommandoebene des MAIN- 
Rahmens, der dann sofort wieder für neue (korrekte) Kommandos 
bereitsteht. 
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Wenn alle Angaben in einwandfreier Form vorgenommen wurden, 
erfolgen nun das Laden des Assemblers von der Systemdiskette in 
den Rechner und dessen weiterer Ablauf. Dieser Ladeprozeß wird 
mit einer in dem File LOADDAT befindlichen Hilfsroutine 
vorgenommen. Das bedingt, daß neben dem Assembler (File 
C_ASMBLR) auch das File LOADDAT auf der Systemdiskette im Drive 
0 verfügbar sein muß. Sollte das angegebene Textfile nicht im 
betreffenden Laufwerk verfügbar sein, so generiert der Assembler 
eine entsprechende Fehlermeldung und springt zur erneuten 
Kommandoeingabe in den MAIN-Rahmen zurück. Für den Fall, daß es 
sich bei dem angegebenen File nicht um ein Textfile handelt, 
wird, ebenfalls nach entsprechender Fehlermeldung, der Assembler 
wieder verlassen und auf die MAIN-Ebene zurückgesprungen. 


Der weitere Pragrammablauf und alle näheren Einzelheiten zum 
Assembler werden in Abschnitt 5 behandelt. 
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2.1.2 'C # <- COMPILER) 


Mit diesem Kommando wird der PROFI PASCAL - Compiler aufgerufen. 
Mit diesem Compiler können Pascal-Quel1 Programme übersetzt 
werden. Eine äußerst zweckmäßige und sinnvolle Erweiterung des 
Compilers ist die Tatsache, daß mit dem Compiler auch in 65XX- 
Assembler-Notation geschriebene Prozeduren und/oder Funktionen, 
die in das Pascal-Programm einge-fügt sind, in einem Zuge 
mitübersetzt werden. Der Compiler erwartet das Quel1programm 
(Source) als Textfile au-f der Diskette. Aus diesem Grunde -fragt 
das System nach Eingabe des 'C'-Kommandos sowohl nach dem Namen 
des zu kompilierenden Programms als auch anschließend nach dem 
Laufwerk, in dem sich die zugehörige Diskette befindeti 

F1LE-T1TLE = ?’ 

‘ DRIVE(MAP) « x' 

Als Vorschiagswert x wird bei der Laufwerksangabe das zuletzt 
benutzte Lau-fwerk vorgegeben, so daß in der Regel nur mit einem 
RETURN geantwortet werden muß. 


Anstelle des aktuellen File-Namens kann bei der betre-f-fenden 
Frage auch mit geantwortet werden, was den Compiler anweist, 
das unmittelbar zuvor mit dem Editor bearbeitete Textfile zu 
kompilieren. Für die jetzt überflüssige Laufwerksangabe bittet 
das System um Bestätigung unter Nennung des zuvor verwendeten 
File-Namens und der zugehörigen Laufwerksnummer: 

' C0NF1RM "FILENAME,DR1VE_NR"? N/Y‘ 

Bei fehlender Bestätigung oder sonstigen fehlerhaften bzw. 
ungültigen Angaben wird der weitere Aufruf des Compilers 
ignoriert und Sie verbleiben auf der Kommandoebene des MAIN- 
Rahmens, der dann sofort wieder für neue (korrekte) Kommandos 
bereitsteht. 
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Wenn alle Angaben in einwandfreier Form getätigt wurden, 
erfolgen nun das Laden des Compilers von der Systemdiskette in 
den Rechner und dessen weiterer Ablauf. Dieser Ladeprozeß wird 
mit einer in dem File LOADDAT befindlichen Hilfsroutine 
vorgenommen. Das bedingt, daß neben dem Compiler (File C_CPLR) 
auch das File LOADDAT auf der Systemdiskette im Drive 0 
verfügbar sein muß. Sollte das angegebene Textfile nicht im 
betreffenden Laufwerk verfügbar sein, so generiert der Compiler 
eine entsprechende Fehlermeldung und springt zur erneuten 
Kommandoeingabe in den MAIN-Rahmen zurück. Für den Fall, daß es 
sich bei dem angegebenen File nicht um ein Textfile handelt, 
wird, ebenfalls nach entsprechender Fehlermeldung, der Compiler 
wieder verlassen und auf die MAIN-Ebene zurückgesprungen. 


Der weitere Programmablauf und alle näheren Einzelheiten zum 
Compiler werden in Abschnitt 4 behandelt. 
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2.1.3 'E' C- EDITOR) 


Mit diesem Kommando wird der Text-Editor von der Systemdiskette 
in den Rechner geladen und gestartet. Der Ladevorgang wird mit 
einer Hi 1 fsroutine im File LOADDAT vorgenommen, so daß sicherzu¬ 
stellen ist, daß neben dem Editor (File C_EDITOR> auch das File 
LOADDAT auf der Systemdiskette im Drive 0 vorhanden ist. 


Mit dem Editor können die Assembler- und Pascal-Quel1 Programme 
erstellt und/oder editiert werden und als Textfiles auf eine 
unter Pascal-DOS verwaltete Diskette gespeichert werden. Von 
dort können diese Programme mit dem Assembler oder Compiler 
übersetzt werden. Alle weiteren Einzelheiten über den Editor 
sind in Abschnitt 3 zu finden. 
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2.1.4 B' (- BET FILE FROH DIBC TO MEMORY) 


Dieses Kommando ermöglicht das Laden eines beliebigen Files von 
der Diskette in den Speicher des Rechners. Dies ist u.a. sowohl 
f ür das temporäre Zwischenspeichern von Informationen als auch 
für das explizite Laden von Programmen, speziell von Maschinen¬ 
programmen, sehr nützlich. Die für das ’G '-Kommando 
erforder1ichen Angaben (Parameter) werden in folgender Reihen¬ 
folge im Dialog abgefragts 

' START-ADR. = ?' 

Zunächst ist die Adresse anzugeben, ab der das zu ladende File 
im Speicher abzulegen ist. Die Adreßeingabe kann, wie bereits 
unter 1.1 beschrieben, in Hex- oder Dezimal-Angabe erfolgen. 
Anschließend ist auf die Frage 

F1LE-T1TLE = ?' 

der Name des Files anzugeben, das von der Diskette in den 
Speicher des Rechners geladen werden soll, und mit dem das File 
im Directory (MAP) der Diskette verzeichnet ist. Im Anschluß 
daran wird mit 

'DRIVE(HAP) = x' 

die Nummer des Laufwerks abgefragt in dem sich die Diskette mit 
dem gewünschten File befindet. Als Vorschiagswert x wird hier 
das zuletzt benutzte Laufwerk vorgegeben, so daß in der Regel 
nur mit einem RETURN geantwortet werden muß. Wenn sich die 
Laufwerksnummer ändert, ist diese neue Nummer einzugeben. 


Sind alle Angaben korrekt und fehlerfrei eingegeben, wird eine 
den Ladeprozeß durchführende Routine aufgerufen, die das 
Einlesen des gewünschten Files von der Diskette ausführt. Die 
Laderoutine ist ein Bestandteil des auf der Systemdiskette 
befindlichen Files LÜADDAT, was dessen Verfügbarkeit im Drive 0 
für das G '-Kommando bedingt. 
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Sollte dies nicht der Fall sein oder das angeforderte File sich 
nicht auf der angegebenen Diskette befinden, so wird eine 
entsprechende Fehlermeldung ausgegeben. Die Programmkontrol1e 
kehrt danach wieder in den MAIN-Rahmen zurück. 


ACHTUNG! 

Beim *G '-Kommando wird nicht geprüft, inwieweit der adressierte 
Speicherplatz für das Belegen mit dem angegebenen File verwendet 
werden kann, und ob das zu ladende File in gesamter Länge in den 
verfügbaren Speicher paßt. Das File wird byte-genau in seiner 
ganzen Länge (bis EOF = END OF FILE) ab der definierten Start¬ 
adresse in den Speicher geladen. Im MAIN-Rahmen kann für das 
'ff'-Kommando gefahrlos der gesamte Speicherplatz $0600..$BBFF 
benutzt werden. Selbstverständlich kann - wenn es in Sonder¬ 
fällen gewünscht wird - auch noch in den Bereich *0400..$07FF 
(Bi 1dschirmspeieher) geladen werden. 


Nach erfolgreichem Ladevorgang wird die nächste beim Ladeprozeß 
nicht mehr beanspruchte Speicheradresse (END-ADR.+1) ausgegeben. 
Die weitere Programmkontrol1e liegt nun wieder im MAIN-Rahmen. 


2.1.3 ‘ 'H' (- HELP) 

Mit diesem Kommando läßt sich jederzeit die komplette Kommando¬ 
liste auf den Bildschirm ausgeben, so daß Sie sich über die 
augenblickliche Programmebene (MAIN/EDITOR/UTILITY) und die 
verfügbaren Kommandos unterrichten können. 
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2.1.6 # J # <- JUMP) 


Dieses Kommando gestattet das Anspringen beliebiger Maschinen¬ 
oder Pascal-Programme, die im Speicher des Rechner» abgelegt 
sind. Die Ansprungadresse wird mit 

'START-ADR. = ?' 

im Dialog abgefragt. 


ACHTUNG! 

Es erfolgt keine Kontrolle, ob an der angegebenen Speicher¬ 
adresse ordnungsgemäß ein ablauffähiges Programm beginnt. 


Für die Ablage der Programme steht bei einem Aufruf aus dem 
MAIN-Rahmen der Spei eherbereich *0800..*BBFF zur Verfügung. Wenn 
es sich bei dem angesprungenen Programm um ein Maschinenprogramm 
handelt, wird aus diesem mit dem 65XX-Maschinenbefehl RTS 
korrekt in den MAIN-Rahmen zurückgesprungen, sofern die 
Speicherzellen *0028..*004F, *0340..*0379 und *BC00 # .*F2FF 
(jeweils RAM-Speicher) nicht verändert wurden. Läßt man 
lediglich den Bereich *C200..*F2FF des RAM-Speichers 
unangetastet, so führt der 65XX-Maschinenbefehl JMP $C200 immer 
noch ordnungsgemäß aus dem angesprungenen Programm in den MAIN- 
Rahmen . 


- 37 - 



PROFI PASCAL 


2.1.7 'M' <- MAP/DRIVE) 

Das ' M '-Kommando bietet die Möglichkeit, das Inhaltsverzeichnis 
(Directory bzw. MAP) einer Diskette auf den Bildschirm 
auszugeben. Zu diesem Zweck wird mit 

DRIVE(MAP) » x ' 

nachge-f ragt, in welchem Laufwerk sich die Diskette mit dem 
auszugebenden Inhaltsverzeichnis befindet. Bei dieser Nachfrage 
wird als Vorschiagswert x die Nummer des zuletzt aufgerufenen 
Laufwerks vorgegeben, so daß u. U. lediglich ein RETURN 
einzugeben ist. 

Das Ausgeben des Inhal tsverzei chni sses über das ' fl ' -Kommando des 
MAIN-Rahmens erfolgt mit Hilfe einer im File LOADDAT enthaltenen 
Routine. Aus diesem Grunde muß dieses File für die Ausführung 
des 'M '-Befehls im System-Drive 0 vorhanden sein. 


Zu berücksichtigen ist, daß es sich bei dem auszugebenden 
Directory um das unter Pascal-DOS verwaltete Inhaltsverzeichnis 
handelt. Dieses Inhaltsverzeichnis hat einen anderen Aufbau als 
das mit dem herkömmlichen DOS verwaltete und liegt auch 
physikalisch an einer anderen Stelle auf der Diskette. Das mit 
dem normalen Betriebssystem verwaltete Directory hat in PROFI 
PASCAL keinerlei Bedeutung, in ihm ist allenfalls die Boot- 
Software, d. h. das Programm zum "Hochfahren" von PROFI PASCAL, 
verzeichnet. Mit Ausnahme weiterer 22 Blöcke (in der gewohnten 
Größe von 256 Bytes) wird der gesamte Rest der Diskette unter 
Pascal-DOS verwaltet. 


Mit dem ‘M '-Kommando werden die auf der Diskette verzeichneten 
Files mit ihren Namen ausgegeben und der insgesamt noch 
verfügbare freie Speicherplatz angezeigt. Dabei ist jedoch die 
Anzahl der freien Blöcke völlig anders zu interpretieren als im 
gewohnten DOS. Unter Pascal-DOS wird die Diskette in 40 Blöcke 
zu je 4 KBytes (4096 Bytes) eingeteilt, so daß bei der Zahl der 
freien Blöcke deren jeweilige Größe zu berücksichtigen ist. 
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Wird die bei Verfügbarkeit von zwei Floppy-Diek-Stationen 
gegebene Möglichkeit ausqenutzt, zwei Disketten zu einem 
Diskettenverbund doppelter Größe zusammenzubinden, so wird der 
noch freie Speicherplatz getrennt für jede einzelne Diskette 
dieses Verbundes angegeben. Das führt dazu, daß auch bei der 
Verwaltung von "Single-Disketten" die Ausgabe des freien 
Speicherplatzes im Inhaltsverzeichnis in einer der Verbundform 
entsprechenden Art geschieht. 


Für die nur mit der System-Software belegte Systemdiekette sieht 
das Inhaltsverzeichnis wie folgt aus: 


II AP OF Dl SC "PASCAL "t 

LOADDAT SYSGEN C_ED1T0R C_UTIL1TY 

C_CPLR C_ASMBLR C_PMDUHP 

DISC 0 = 18 // 

BLOCKS FREE / 


Bei der Auflistung des Disketteninhaltes werden die Namen der 
Files, die gegen übersehreiben/Löschen geschützt sind, invers 
dargestellt. Weitere Informationen über die verwalteten Files 
können über ein spezielles Kommando des Utilitys abgerufen 
werden. 

Nähere Einzelheiten über das Pascal-DOS und die neue Disketten¬ 
verwaltung werden in den Abschnitten 6 (UTILITY) und 7 (System¬ 
spezifische Informationen) behandelt. 
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2.1.8 'P' (- PUT MEMORY A8 FILE TO DI8C) 


Dieses Kommando erlaubt als Pendant zum ' G '-Kommando das 
Abspeichern eines beliebigen Teiles des Speicherinhaltes als 
Datenfile auf die Diskette. Damit lassen sich temporär im 
Rechner gespeicherte Informationen (Daten, Programme usw.) als 
Files generieren, die dann unter Pascal-DOS verwaltet werden und 
im Directory verzeichnet sind. Die für die Ausführung des P'- 
Kommandos erforder1ichen Angaben (Parameter) werden wie folgt im 
Dialog abgefragt: 

'ST ART-ADR. * ?' 

Es ist die Adresse anzugeben, an der die abzuspeichernde 
Information beginnt. Auf die auch hier bestehende Eingabe¬ 
möglichkeit sowohl einer Hex- als auch einer Dezimal-Adresse sei 
nochmals aufmerksam gemacht. Dann ist auf die Frage 

'END-ADR.+1 = ?' 

die auf den abzuspeichernden Bereich unmittelbar folgende 
Adresse anzugeben (in Anlehnung an die in solchen Fällen 
üblichen AdreBangaben). Im Anschluß an die Definition des auf 
die Diskette zu übertragenden Speicherbereiches wird mit 

'F1LE-T1TLE = ?' 

der Name abgefragt, unter dem das anzulegende File im Directory 
der Diskette verwaltet wird. Bei der Eingabe des File-Namens ist 
die Syntax für Pascal-Bezeichner zu beachten: 

* Bezeichner haben bis zu 8 signifikante Zeichen. 

* Bezeichner müssen mit einem Großbuchstaben beginnen. 

* übrige Zeichen im Bezeichner müssen Großbuchstaben, 

Ziffern und ' * sein. 
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Im Anschluß an den File-Namen ist auf die Frage 

'DRIVE(HAP) = x 

die Nummer des Laufwerks anzugeben, in dem sich die zu belegende 
Diskette befindet. Als Vorschlagswert x wird das zuletzt 
benutzte Laufwerk mit der Dialogfrage ausgegeben. 

Nachdem alle Angaben korrekt und fehlerfrei eingegeben wurden, 
wird eine den Abspeicherprozeß durchführende Routine aus dem 
File LOADDAT aufgerufen. Deshalb muß für die Ausführung des ’ P' — 
Kommandos von der MAIN-Ebene aus das File LOADDAT im System- 
Drive 0 abrufbar sein. Ist diese Routine nicht verfügbar, wird 
der P'-Befehl nach entsprechender Fehlermeldung ignoriert. 

ACHTUNG! 

Beim Abspeichern auf die Zieldiskette wird ein auf dieser 
Diskette befindliches File gleichen Namens überschrieben; die 
ursprüngliche Information geht verloren! Ist das gleichnamige 
File auf der Zieldiskette gegen überschreiben/Löschen geschützt, 
unterbleibt die Ausführung des ' P '-Kommandos nach Ausgabe der 
Feh1 erme1 düng s 

1LL.F1LE OPR. ERROR/’ 

Für den Fall, daß auf der Zieldiskette kein ausraiehender 
Speicherplatz vorhanden ist, deren Directory für den 
zusätzlichen File-Eintrag nicht mehr aufnahmefähig ist oder die 
Diskette insgesamt sehreibgeschützt ist, wird ebenfalls eine 
diesbezügliche Fehlermeldung generiert und das ’P '-Kommando 
erfolglos abgebrochen. 

Während des Abspei ehervorganges liegt eine Spei eherkonfiguratian 
vor, die den Bereich $0000..$CFFF als RAM-, den Bereich 
♦D000..SDFFF als I/O- und den Bereich *E000..*FFFF als R0M- 
(KERNAL)-Spei eher eingeschaltet hat. 

Nach dem erfolgreichen Abspeichern liegt die weitere Programm¬ 
kontrolle - ebenso wie nach Feh1 erabbrüchen - wieder im MAIN- 
Rahmen. 
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2.1.9 'R' (- RUN PROBRAN) 

Mit dem ‘R '-Kommando werden die von Ihnen erstellten Pascal- 
Programme aufgerufen und gestartet. Die Pascal-Programme müssen 
in kompilierter Form auf der Diskette vorhanden sein. Der 'R'- 
Befehl lädt zunächst den Programmcode automatisch in den 
Speicher des Rechners und springt dann dieses Programm zur 
weiteren Ausführung an. Die dafür notwendigen Angaben 
(Parameter) werden mit folgendem Dialog abgefragta 

' F1LE-TITLE = ?' 

Als erstes muß der Name eingegeben werden, unter dem das 
Programmcode-Fi1e auf der Diskette verwaltet wird. Mit 

' DRIVE(MAP) * x' 

wird anschließend nach der zugehörigen Laufwerksnummer unter 
Vorgabe des zuletzt verwendeten Laufwerks gefragt. Nach 
korrekter Eingabe beider Angaben wird das gewünschte Programm 
mit Hilfe einer speziellen Laderoutine im File LOADDAT in den 
Rechner geladen und gestartet. Sollte diese LOADDAT-Routine oder 
das angeforderte Programm nicht verfügbar sein, wird dies mit 
einer Fehlermeldung angezeigt und die Ausführung des 'P'~ 
Kommandos ignoriert. Falls es sich bei dem aufgerufenen File 
nicht um ein Pascal-Programm handelt, wird ebenfalls mit einer 
entsprechenden Fehlermeldung der *P '-Befehl abgebrochen. 


Zur Vereinfachung des beschriebenen Programmaufrufes ist unter 
bestimmten Voraussetzungen ein verkürzter Aufruf möglich. 


a) Unmittelbar im Anschluß an die Kompilation eines Programms 
kann der kompilierte Code durch die Beantwortung der Dialog¬ 
abfrage 'F1LE-TITLE B ?* mit direkt zur Ausführung 

gebracht werden. 
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b) Jeder sich unmittelbar an den Ablauf de* Pascal-Programms 
anschließende erneute Programmaufruf kann ebenfalls durch 
Eingabe von '*' anstelle des tatsächlichen File-Namen» 
erfolgen. 


In den vorgenannten Fällen entfällt das zunächst erfOrder1iche 
Laden des Programmcodes von der Diskette in den Speicher, da der 
Code sich bereits dort befindet und das Programm unmittelbar 
angesprungen werden kann. 


Sowohl nach dem erfolgreichen Programmab1 auf als auch bei einem 
Abbruch infolge eines Runtime-Fehler* geht die Programmkontrol1e 
nach einer entsprechenden Systemmeldung wieder auf den MAIN- 
Rahmen über. Bei den sogenannten Runtime-Fehlern handelt es sich 
um programmtechnisehe Situationen, die während der Laufzeit 
eines Programms auftreten und die den weiteren korrekten 
Programmablauf unmöglich machen. Sie führen zu einem Programm¬ 
abbruch. Die Art de® Fehlers wird mit einer Fehlermeldung auf 
dem Bildschirm ausgegeben. Auch wenn ein anderes Ausgabegerät 
aktiv war, wird beim Auftreten eines solchen Fehlers die Ausgabe 
wieder auf den Bilschirm zurückgeschaltet. Zusammen mit der 
Fehlerbezeichnung wird auch die Programmstelle angeben, an der 
Fehler auftrat. Dies geschieht in Hex-Notation in der Form« 

' . . . ERROR IN $ -' 

Allerdings muß dabei bedacht werden, daß eine Reihe von I/O- 
Operationen - vornehmlich solche mit Diskettenzugriff - über ein 
internes, in Pascal formuliertes I/Ü-Paket ablaufen und dabei 
auftretende I/O-Fehler mit der internen Programmstel1e 
ausgegeben werden. 


In folgender Übersicht sind alle Runtime-Fehler mit einer Kurz¬ 
erläuterung und ihrem Meldetext aufgelistets 
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überschreiten des De-finitions- (OUT OF RNG. ERROR/) 

bereiche« von Unterbereichatypen 

Programmgesteuerter Aufruf nicht (NOT EXQ. ERROR/) 
aus-f ührbarer Programme 

überschreiten des De-finitions- (NUM.OV. ERROR/) 

bereiches von Integer-Größen bei 
Rechenoperationen 

überschreiten von ARRAY-Index- (B.SUBS. ERROR/) 

bereichsgrenzen 


Unzulässiges Argument bei (1L.QUANT. ERROR/) 

diversen Funktionen 


Unzureichender Variablen-(Stack)- (STK.OY. ERROR/) 

Speicherplatz 

Division durch 0 (ZER0-D1Y. ERROR/) 


Unzulässige Geräte-Nr.-Angabe (1L.DYC. ERROR/) 

Fehler beim Datenaustausch mit (FLOPPY ERROR/) 

der Floppy-Disk-Station 

Fi le-Zugri -f -f ohne vorhergehendes (NOT OPEN ERROR/) 
RESET/REWRITE 


RESET/REWRITE bei einem bereits (NOT CLO. ERROR/) 
entsprechend geö-ffneten File 

Bedar-f von mehr als drei gleich- (BUF.OV. ERROR/) 
zeitig zu benutzenden File-Puffern 


Unzureichender Platz im Directory (DIR.OY. ERROR/) 
für weitere File-Einträge 
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Angefordertes File nicht vorhanden 

Unzureiehender Speicherplatz auf 
der Diskette 

Nicht zusammengehöriger Disket¬ 
tenverbund/Unzulässige Diskette 

Unzulässige File-Operation 

Lesezugriff in ein File hinter 
END DF FILE 

Fehler beim Datentransfer über 
IEEE—Bus 


(NOT FND. ERROR/) 

(DSC.OV. ERROR/) 

(DSC.M1SM. ERROR/) 

(1L.F1LE OPR. ERROR/) 

(AFTER EOF ERROR/) 

(IEEE-ERROR/) 

nach Beenden des Programms 


Ein erfolgreieher Programmablauf wird 
mit der Systemmeldung OK' angezeigt. 


2.1.10 'U' (- UTILITY) 

Mit diesem Kommando wird das Utility von der Systemdiskette in 
den Rechner geladen und gestartet. Der Ladevorgang wird auch 
hier mit einer Hilfsroutine im File LOADDAT vorgenommen, so daß 
sicherzustel1en ist, daß neben dem Utility (File C_UTILIT) 
ebenfalls das File LOADDAT im System-Drive 0 vorhanden ist. 


Das Uti1ity-Programm gestattet in erster Linie eine sehr 
komfortable File-Pflege. Darüber hinaus kann mit diesem Paket 
aber auch eine Reihe maschinennaher Operationen (Monitor— 
funktionen) ausgeführt werden. Ein besonderer Vorteil des 
Utilitys besteht darin, daß sämtliche Operationen nach Laden des 
Programms im Stand-alone-Verfahren, d.h. ohne Zuhilfenahme des 
Hilfsfiles LOADDAT, ausgeführt werden können. Die Verfügbarkeit 
der Systemdiskette ist also nach Start des Utilitys nicht mehr 
erforder1ich. Alle weiteren Einzelheiten über das Utility sind 
in Abschnitt 6 zu finden. 
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2.1.11 'W' <- WRITE 80URCE) 


Das H '-Kommando des MAIN-Rahmens gestattet auf einfache Art und 
Weise, einen Ausdruck eines Quel1 Programms auf einem Drucker 
(Hardcopy) zu erzeugen. Grundsätzlich besteht die Möglichkeit, 
jedes Textfile durch Aufrufen dieses Befehls auszudrucken. Dabei 
ist aber zu bedenken, daß aus Gründen der einheitlichen 
Darstellung jedes Textfile, genau wie die Quel1 Programme, mit 
einer Zeilennumerierung versehen dargestellt werden. Diese 
Zeilennummern, die lediglich im Editor als Ordnungskriterium 
benutzt werden und kein Bestandteil des eigentlichen Quell- 
programms sind, werden aus Gründen der gleichen Darstellungs¬ 
weise beim 'W'-Kommando ebenfalls zu jeder Zeile hinzugeneriert 
und mit ausgegeben. 


Sie verfügen zwar prinzipiell auch im Editor über die Möglich¬ 
keit, das in Arbeit befindliche File auszudrucken, aber dies 
geschieht dann ohne Seitenumbruch, so daß bei längeren Texten 
der überblick doch leicht ver1orengeht. Mit dem 'W'-Kommando 
wird dagegen ein voll seitenorientierter Ausdruck mit einer 
besonderen Kopfzeile je Seite erzeugt. 


Nach der Eingabe des W'-Befehls werden die weiteren Angaben 
(Parameter), die für die korrekte Ausführung des Kommandos 
erforderlich sind, mit folgendem Dialog abgefragte 

‘F1LE-T1TLE * ?' . 

Diese erste Abfrage gilt dem Namen des auszudruckenden Text¬ 
files, während mit der anschließenden Abfrage 

' DRIVE(MAP) = x 

das Laufwerk bestimmt wird, in dem sich die betreffende Diskette 
befindet. Wie gewohnt wird das zuletzt benutzte Laufwerk als 
Vorschiagswert x bereits vorgegeben. 
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Nach diesen Angaben wird das das 'W'-Kommando verarbeitend* 
Programm aus dem File LOADDAT geladen und gestartet, was die Zu¬ 
grif fsmöglichkeit auf dieses File im System-Drive 0 voraussetzt. 
Sollte das auszudruckende File auf der angegebenen Diskette 
nicht vorhanden oder kein Textfile sein, wird die endgültige 
Ausführung des ' A/'-Kommandos nach einer dementsprechenden 
Fehlermeldung ignoriert. 


Nach erfolgreiehern Start der WRITE-Routine fragt diese die noch 
veränderbaren Parameter wie folgt abi 

'PRJ-DEV1CE = 4,0' 

Es können anstelle der für den Drucker vorgeschlagenen Geräte- 
adresse 4 und Sekundäradresse 0 andere Werte angegeben werden, 
sofern der Ausdruck auf solchen, am seriellen Ausgabebus des 
Rechners angeschlossenen Geräten erfolgen soll. Dabei ist zu 
berücksichtigen, daß mit dem ' M ‘-Kommando ein Ausdrucken auf 
Endlospapier vorgesehen ist. Mit 

' LINES/PAGE » 72' 

wird schließlich nach dem zu bedruckenden Seitenformat gefragt, 
wobei der standardmäßige Wert mit 72 bereits vorgegeben wird. 
Dieser Wert gibt die gesamte Blattgröße an und steuert innerhalb 
des Programms den Seitenumbruch. Die beiden letzten Dialogfragen 
werden solange mit entsprechenden Fehlermeldungen wiederholt, 
bis die nachgefragten Werte korrekt in einer sinnvollen Größe 
eingegeben wurden. 

Vor Eingabe des letzten Parameters ist das Papier im Drucker 
unmittelbar auf den Anfang einer neuen Seite (Zeile 1) 
auszurichten, da nach der letzten Eingabe sofort mit dem 
Ausdrucken begonnen wird. Der Druckvorgang kann jederzeit mit 
der RUN/STOP-Jaate (BREAK) abgebrochen werden. Sowohl beim 
Abbruch als auch beim korrekten Beenden der 'A/'-Routine wird das 
Papier noch bis auf die nächste Seite vorgeschoben. Die 
Programmkontrol1e führt aus dem 'W -Kommando stets in den MAIN- 
Rahmen zurück. 
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Sollte anstelle der Druckersteuerung über den seriellen Ausgabe¬ 
bus eine anwenderspezi-fisehe Druckersteuerung gewünscht werden, 
so kann dies für die ßeräteadressen 4 und 5 vorgenommen werden. 
Die Ausgabe für beide ßeräteadressen erfolgt über einen in der 
Adresse *CA03 abgelegten Zwischensprung. Der dort befindliche 
JMP-Befehl kann durch Ändern der Ansprungadresse in die 
anwendereigene Druckerroutine gelenkt werden. Das auszugebende 
Zeichen wird dabei im A-Register (Accu) der CPU übergeben. Die 
Anwenderroutine darf das Y-Register nicht verändern und muß mit 
einem RTS enden. Die eingegebene Beräteadresse (4 oder 5) kann 
in der Speicherzelle *0373 abgefragt Werden. 


2.2 RÜCKKEHR ZUR BA8IC 


Der Rjicksprung aus dem PRGFI PASCAL - System ins BASIC ist 
jederzeit durch Betätigen der REST0RE-Ta*te möglich. Dieser 
Tastendruck führt in die RESET-Routine und erzeugt einen BASIC- 
Kaltstart. Solange auf der BASIC-Ebene der Speicherinhalt des 
Adreßbereiches *C200..*FFFF nicht verändert wurde, ist der 
erneute Aufruf des PROFI PASCAL - Systems mit SYS 49664 möglich. 
Mit diesem BASIC-Befehl wird die Startadresse *C200 des MAIN- 
Rahmens aufgerufen. 
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3 DER TEXT-EDITOR 


Wie bereits unter 2.1.3 beschrieben, wird der Editor aus dem 
MAIN-Rahmen mit dem ' E '-Kommando aufgerufen und gestartet. Dazu 
wird ein Hi 1fsprogramm im File LOADDAT benötigt, so daß bei der 
Generierung einer speziellen Editor-Diskette neben dem eigent¬ 
lichen Editor (File C_EDITOR) auch das Bystem-File LOADDAT auf 
dieser Diskette vorhanden sein muß. Nun besitzen Sie eine mit 
Autostarter versehene Diskette, die ausschließlich für das 
Erstellen und Editieren von Quel1 Programmen geeignet ist und 
dafür ausreichend Speicherplatz zur Verfügung stellt. 


Beim Start des Editors wird folgende Meldung ausgegebens 


* C=64 SOURCE-EDITOR 5.3 * 


COMMANDS = 
As(PPEHDSRC) 
Cs(HANGE) 
D(ELETE) 

Fs (IND) 

Gs(ETSOURCE) 
H(ELP) 


HIST) 

H(AP/DRIVE) 

N(UMBERING) 

0(UT PUTDVC) 
Ps (UTSOURCE) 


Q(UIT) 
R(ENUMBER) 
S(HIFTLINE) 
Us(PDATESRC) 
V(ACANCY) 


Die Programmebene des Editors ist auch an dem sich ohne 
besonderes Prompt-Zeichen meldenden Cursor erkennbar. Mit dem 
Editor können problemlos sowohl Pascal- als auch Assembler- 
Quell Programme (erforderlichenfalls auch gemischte) erstellt und 
als Textfiles zur späteren Kompilierung bzw. Assemblierung auf 
der Diskette abgespeichert werden. Zur Vereinfachung der Text¬ 
eingabe sind sämtliche Tasten der Tastatur auf automatische 
Wiederholfunktion <Auto-Repeat) geschaltet. Für die Eingabe der 
Quel1 proramme stehen rund 43000 Bytes Speicherp1 atz zur 
Verf ügung. 
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Bai der Arbeit mit dem Editor ist grundsätzlich zu beachten, daß 
als Ordnungskriterium für das Einfügen, Anfügen oder Voran¬ 
stellen usw. von Textzeilen stets eine Zeilennummer anzugeben 
ist. Im Anschluß an die Zeilennummer können einschließlich 
dieser Nummer 80 Zeichen eingegeben werden und - wie im BASIC- 
Editor - mit den Cursor-Steuertasten bzw. Editiertasten ( INSERT, 
DELETE usw.) voll editiert werden. Dabei kann sich eine solche 
Textzeile aufgrund des nur 40 Zeichen breiten Bildschirms über 2 
Bildschirmzeilen erstrecken. Mit einem RETURN wird die 
eingegebene und ggf. editierte Textzeile endgültig vom Rechner 
übernommen und entsprechend der Zeilennummer zum übrigen Text 
hinzugefügt. Im einzelnen kann dies bedeuten, daß diese Zeile in 
Bezug auf den bereits abgelegten Text vorangestel1t, eingefügt 
oder angehängt wird. Ist dieselbe Zeilennummer bereits im Text 
vorhanden, wird anstelle dieser Zeile die neue im Text abgelegt. 
Geben Sie lediglich eine Zeilennummer ohne folgenden Text ein, 
so wird eine eventuell bereits vorhandene durch diese leere 
Zeile ersetzt, d. h. sie wird gelöscht. 


Bereits eingegebene Zeilen können jederzeit wie beim erstmaligen 
Erstellen einer Textzeile auf dem Bildschirm korrigiert werden. 
Dazu brauchen Sie lediglich den Cursor an die gewünschte Stelle 
zu setzen, die erfOrder1ichen Korrekturen vorzunehmen und die 
Textzeile mit einem RETURN erneut zu übergeben. Sollte die 
gewünschte Zeile nicht mehr auf dem Bildschirm sichtbar sein, 
kann sie ohne Schwierigkeiten mit dem List-Kommando wieder zur 
Anzeige gebracht werden. 


ACHTUNG! 

Es werden nur die Zeilen übernommen bzw. korrigiert, die mit 
einem RETURN abgeschlossen werden, wobei es keine Rolle spielt, 
an welcher Stelle innerhalb der Textzeile der Cursor steht, wenn 
die RETURN-Ta*te betätigt wird. 
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Die als Ordnungskriterium recht bequem und freizügig benutzbaren 
Zeilennummern unterliegen allerdings einer kleinen Ein¬ 
schränkung. Es können keine Textzeilen erzeugt werden, die 
unmittelbar hinter der Zeilennummer mit einer Ziffer beginnen. 
Im Anschluß an die Zeilennummer, die zwischen O und 32759 liegen 
kann, muß zunächst ein von einer Ziffer sich unterscheidendes 
Zeichen folgen. Zeilennummern außerhalb des angegebenen 
Bereiches werden vom Editor mit 

' 1LLEG. L1NE*'‘ 

‘EXECUTION NOT SUCCESSFUL /' 

zurückgewiesen. 


Wird eine Zeile ohne Zeilennummer eingegeben, so interpretiert 
der Editor das erste Zeichen einer solchen Zeile als Kommando, 
was in den meisten Fällen wegen syntaktischer oder formeller 
Unzulänglichkeit des Zeilenrestes mit entsprechenden Fehler¬ 
meldungen zurückgewiesen wird bzw. bei eventuell möglichen, aber 
gefährlichen Fehlinterpretationen aus Sicherheitsgründen noch¬ 
mals hinterfragt wird. Dabei gilt in der Regel, daß mit der 
Meldung 

‘EXECUTJON NOT SUCCESSFUL /' 

angegeben wird, daß die komplette Ausführung ignoriert wurde und 
wirkungslos geblieben ist. 


Neben der bereits oben erwähnten Fehlermeldung kann noch eine 
Reihe weiterer Fehlerhinweise vom Editor ausgegeben werdeni 

' 1LLEG. SYNTAXf 
EXECUTION NOT SUCCESSFUL /' 

bei Nichtbeachtung der für die korrekte Befehlseingabe 
erforder1ichen Syntax. 
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Die weiteren Fehlermeldungen lauten: 


' ILLEG. INPUT/' 

EXECUTION NOT SUCCESSFUL/' 


bei der Eingabe unzulässiger Geräteadressen oder unzulässiger 
Angaben beim 'S'-Kommando \ 

ILLEG. TITLE/' 

EXECUTION NOT SUCCESSFUL /' 


bei der Eingabe eines unzulässigen File-Namensj 


'TITLE UNDEF1ND /' 

EXECUTION NOT SUCCESSFUL /' 


bei Verwendung des Namenskürzels bei nicht eindeutig 

definierten File-Namenj 

'RAM OVERFLON/' 

'EXECUTION NOT SUCCESSFUL /' 

beim Auftreten von Speicherplatzmangel (siehe auch 3.5)j 

‘COHNAND 1GN0RED/' 

bei der Eingabe eines nicht-definierten Befehlskürzels. 


Darüber hinaus können bei Befehlen, die eine Diskettenoperation 
erfordern, noch verschiedene I/O-Errors (Eingabe/Ausgabe-Fehler) 
auftreten, die zwar als Runtime-Fehler mit entsprechenden 
Meldungen angezeigt werden, aber nicht zum Verlassen des Editors 
oder zum Verlust von eingegebenen Texten führen. 


Die einzelnen Befehle des Editors und ihre Syntax werden unter 
3.1 er1äutert. 
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3.1 DIE BEFEHLE DE8 EDITÜRB 


Die im Editor verfügbaren Befehle sind - wie bereits bei den aus 
dem MAIN-Rahmen aufrufbaren Befehlen beschrieben - stets mit 
einem RETURN abzuschließen. 


Die nach dem Aufruf des Editor ausgegebene Systemmeldung gibt 
Auskunft über die verfügbaren Befehle. Auch hierbei wird als 
Kommando ein mnemotechnisch aus dem Befehl abgeleitetes Buch¬ 
stabenkürzel benutzt, dem im Editor ggf. zusätzliche Parameter 
angehängt werden können bzw. in einzelnen Fällen angehängt wer¬ 
den müssen. Die Fälle, in denen eine Parameterangabe zusammen 
mit dem Befehlskürzel unbedingt erforderlich ist, sind in der 
Systemmeldung mit einem 's' hinter dem Kürzel gekennzeichnet. 
Bei der Eingabe dieser Kommandos muß die Parameterangabe hinter 
diesem 'i' erfolgen, ansonsten wird - wie in den übrigen Fällen 
einer syntaktisch falschen Eingabe - die Fehlermeldung 

1LLEG. SYNTAX /' 

' EXECUTION NOT SUCCESSFUL/' 

ausgegeben. 

Sämtliche im Editor aufrufbaren Kommandos werden detailliert im 
folgenden beschrieben. 
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3.1.1 * Ai * <- APPEND FILE) 


Dieses Kommando gestattet da« Nachladen und Anhängen eines auf 
der Diskette gespeicherten Textfile® zu dem im Speicher 
befindlichen Text. Die Syntax des Befehles hat folgenden Aufbaut 

AiFILENAME ' 

wobei FILENAME für den File-Namen steht, unter dem das 
gewünschte File im Directory der Diskette verwaltet wird. Das 
File wird in dem Floppylaufwerk gesucht, das zuletzt als 
Arbeitslaufwerk definiert wurde. Nach dem Start des Editors ist 
dies zunächst Drive 0, was sich jedoch mit dem 'Af' - Kommando 
(MAP/ DRIVE) jederzeit ändern läßt - siehe auch Abschnitt 3.1.8. 
Eventuell bei der Kommandoeingabe auftretende Fehler (falsche 
Syntax oder unzulässige Bezeichner) werden mit einer eindeutigen 
Meldung beanstandet und führen zur Ignorierung des Befehls. Nach 
der korrekten Eingabe wird das angegebene File vom Arbeitslauf¬ 
werk eingelesen und unmittelbar an den bereits im Editor 
verfügbaren Text angehängt. 


Infolge der Verwendung der Zeilennummer ausschließlich als 
Ordnungskriterium werden im Zuge des '-Kommandos der bereits 
vorhandene Text neu ab Zeilen-Nr. 1000 in 5er-Schritten und das 
anzuhängende File mit weiteren in 5er-Schritten definierten 
Zeilennummern fortlaufend zum vorhandenen Text durchnumeriert. 
Falls das nachzuladende File an eine ganz bestimmte Stelle im 
Text eingefügt werden soll, ist ebenfalls zunächst mit dem 'Ai 
Kommando das externe File anzuhängen und anschließend mit dem 
Verschiebebefehl (siehe 3.1.14: 'S'-Kommando) an die gewünschte 

Stelle zu transferieren. 
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Tritt im Laufe der Kommandoausführung ein Fehler auf (File nicht 
gefunden, das angegebene File ist keine Textfile, Lesefehler 
usw. > , so wird die weitere Abarbeitung des Befehls nach einer 
entsprechenden Fehlermeldung abgebrochen. Der bereits 
eingegebene und eventuell schon nachgelesene Text bleibt dabei 
voll erhalten. 


Sollte der im Editor verfügbare Speicherplatz beim Nachlade¬ 
prozeß erschöpft werden, so wird das weitere Laden des 
zusätzlichen Files mit der Fehlermeldung 

'RAH-OVERFLOH/‘ 

‘EXECUT1ON NOT SUCCESSFUL /' 

unterbunden. Im Editor ist jetzt der bis zum Auftreten des 
Speicherplatzmangels abgespeicherte Text verfügbar. Eventuelle 


Abhi1fe gegen 

den 

Speicherplatzmangel 

wird 

unter 

3.5 

beschrieben. 
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3.1.2 # Ci' (- CHANGE) 

Mit diesem Kommando ist es möglich, eine beliebige Zeichenfolge 
im eingegebenen Text an allen Stellen ihres Auftretens gegen 
eine andere auszutauschen. Die Syntax ist dabei wie folgti 

' CsZeichenfolge_alt' 

woraufhin in der nächsten Zeile nach der Ersatzzeichenfolge 
gefragt wird, die in analoger Syntax einzugeben isti 

'TO:Zeichen’folge_neu ' 

Bei der Definition der Zeichenfolgen sind alle Zeichen erlaubt, 
die über die Tastatur eingegeben und auf dem Bildschirm wieder¬ 
gegeben werden können. Der Editor übernimmt jeweils die gesamte 
Folge ab '*'. Allerdings werden die hinter dem letzten Zeichen 
eingegebenen Leerzeichen (SPACE) einschließlich des gesamten, 
mit Leerzeichen gefüllten Zeilenrestes ignoriert. Diese 
Einschränkung, daß die Zeichenfolge nicht mit einem Leerzeichen 
enden kann, hat sich jedoch in der bisherigen Praxis noch nicht 
als nachteilig herausgestellt. 

Sollte beim Ersetzen einer kürzeren Zeichenfolge durch eine 
längere der Fall eintreten, daß die editierbare Zeilenlänge von 
insgesamt (einschließlich Zeilennummer) 80 Zeichen überschritten 
wird, wird mit der folgenden Fehlermeldung die betreffende Zeile 
ausgegebeni 

'LI NE LENGTH EXCEEDED IN LINE:' 

* ... aktuelle Textzeile ... * 

Jetzt muß ggf. diese Zeile "von Hand" umgestellt oder aufgeteilt 
werden und das ' Ct '-Kommando für den noch nicht behandelten Rest 
des Textes erneut aufgerufen werden. Je nach Umfang und Anzahl 
der mit dem Change-Kommando zu bearbeitenden Zeilen kann sich 
auch der gesamte verfügbare Speicherplatz erschöpfen, was durch 
eine diesbezügliche Fehlermeldung angezeigt wird. Es tritt dabei 
kein Textverlust ein, aber der Text wurde dann auch nicht im ge¬ 
samten Umfang bearbeitet (für eventuelle Abhilfe siehe 3.5). 
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3.1.3 D' <- DELETE) 


Das 'D ‘-Kommando ermöglicht das Löschen einzelner Zeilen, 
Zei1enbereiche oder des gesamten Textes je nach der Art der 
zusätzlichen Parameterangabe, wobei folgende Fälle möglich sind« 


' D ‘ 


(ohne Zusatz) löscht den gesamten im Editor verfügbaren Text. In 
diesem Falle muß die Nachfrage 

SURE TO DELETE THE COMPLETE SOURCE? Y/N' 

zur Vermeidung eines versehent1ichen Löschens des gesamten 
Textes ausdrücklich mit 'V'' (=*Yes) beantwortet werden. 

' Dxxxx ' 

löscht lediglich die Zeile mit der Nr. xxxx. Dies ist aber auch 
durch Eingabe der Zeilennummer ohne zusätzlichen Text möglich. 

' D-xxxx ' 

löscht alles vom Textanfang bis zur Zeilen-Nr. xxxx einschl. 

' Dxxxx -' 

löscht alles ab Zeilen-Nr. xxxx einschließlich bis zum Textende. 

' Dxxxx- yyyy' 

löscht alle Zeilen, deren Nummern innerhalb der angegebenen 
Grenzwerte xxxx und yyyy einschließlich liegen. Falls die 
Zeilen-Nr. yyyy kleiner als xxxx ist, wird keine Zeile gelöscht. 

Eingaben, die nicht den hier vorgestel1ten Fällen entsprechen, 
werden als Syntaxfehler zurückgewiesen und ignoriert. 
Ausgenommen davon sind Eingaben, die zusätzliche Leerzeichen 
zwischen den Parameterangaben enthalten. 
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3.1.4 * Fi ' <- FIND) 


Beim 'Ft '-Kommando handelt es »ich ähnlich wie beim Ct '“Befehl 
um ein -für das Editieren von Texten recht nützliches Kommando. 
Mit ihm können sehr schnell alle Stellen im Text aufgesucht 
werden, die eine beliebig definierbare Zeichenfolge enthalten. 
Die Syntax ist dabei wieder recht einfach# 

' F:Zeichen folge ' 

Nach dieser Eingabe listet der Editor sofort alle Zeilen auf, 
die die angegebene Zeichenfolge enthalten. Das Auflisten der 
Zeilen kann mit einem Druck auf die Leertaste (SPACE) jederzeit 
angehalten werden, damit Sie sich in Ruhe bestimmte Textstellen 
anoehen können. Ein erneuter Druck auf die Leertaste setzt das 
Auf listen der in Frage kommenden Zeilen wieder fort. Darüber 
hinaus sind durch Betätigen der RUN/STOP-1 aste der Ausgabemodus 
und die weitere Ausführung des T;'-Kommandos sofort abbrechbar. 


Bei der 

Def i ni t i on 

der 

Zeichenfolge ist - 

genau 

wie beim ' Cs '- 

Kommando 

jedes 

auf 

dem Bildschirm 

darstellbare Zeichen 

er 1aubt. 

Lediglich 

der 

mit Leerzeichen gefüllte 

Rest der Zeile 

wird ignoriert. 
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3.1.S 'Gl* (- GET SOURCE FROH DI8C) 


Mit diesem Be-fehl wird ein auf der Diskette gespeichertes Text¬ 
file in den Rechner geladen, um es anschließend editieren zu 
können. Analog zum 'Ae '-Kommando lautet die Syntax wie folgti 

' GeFILENAME' 

wobei FILENAME auch hier für den Namen steht, unter dem das 
gewünschte File auf der Diskette verwaltet wird. Dabei wird das 
augenblickliche Arbeitslauf werk angesprochen. Unmittelbar nach 
dem Start des Editors ist dies Drive Oj ansonsten dasjenige, von 
welchem als letztes das Directory mit dem M'-Kommando gelesen 
wurde. 


Anstelle des für FILENAME zu definierenden File-Bezeichners kann 
auch das Symbol benutzt werden, womit für den Bezeichner der 
zuletzt im Zusammenhang mit dem 'Ge'- oder 'Pt '-Kommando 
definierte Namen verwendet wird. Sollte noch kein solcher Namen 
definiert worden sein oder durch die Benutzung des 'Ae'- oder 
'Ue '-Kommandos Irrtümer möglich sein, wird das Kommando mit der 
folgenden Fehlermeldung beendets 

TITLE UNDEF1NED/' 

‘EXECUTION NOT SUCCESSFUL/' 

Eventuell bei der Kommandoeingabe auftretende Fehler (falsche 
Syntax oder unzulässige Bezeichner) werden mit einer 
entsprechenden Meldung beanstandet und führen zur Ignorierung 
des Befehls. 


Unmittelbar nach der korrekten Eingabe des 'Ge '-Kommandos wird 
das betreffende File vom Arbeitslaufwerk eingelesen und im 
Speicher abgelegt. Bei diesem Vorgang wird die als Qrdnungs- 
kriterium dienende Zeilennummer beginnend mit 1000 in 5er-8teps 
zum Text hinzugefügt, da ja die Zeilennummer kein Bestandteil 
des Textfiles ist. 
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Tritt im Laufe der Kommandoausführung ein Fehler auf (File nicht 
gefunden, kein Textfile, Lesefehler usw.), wird ebenfalls nach 
eindeutiger Fehlermeldung die Befehlsausführung abgebrochen. Im 
Editor ist dann der bis dahin gelesene Text verfügbar. 


Sollte das angeforderte Textfile im Hinblick auf den verfügbaren 
Speicherplatz zu umfangreich sein, wird das Einlesen des 
restlichen Files nach der Meldung 

’RAM OVERFLOH/' 

' EXECUTION NOT SUCC*ESSFUL/ ' 

unterbunden. Der bis dahin gelesene Teil des Textes kann mit dem 
Editor bearbeitet werden. 

ACHTUNG! 

Durch das 'öl'-Kommando wird ein im Speicher bereits 
befindlicher Text restlos gelöscht und von dem einzulesenden 
überschrieben. Der alte Text ist dann verloren. Aus Sicherheits¬ 
gründen wird bei Vorhandensein von noch nicht auf der Diskette 
abgespeichertem Text vor der Ausführung dieses Befehls nach¬ 
gefragt j 


SURE NOT SAVING THE SOURCE? Y/N' 

was bei einer nicht eindeutigen und zweifelsfreien Bestätigung 
mit 'Y\ (= Yes) zum Ignorieren des Kommandos führt. 


3.1.6 'H' (- HELP) 

Mit diesem Kommando läßt sich jederzeit die komplette Kommando¬ 
liste auf den Bildschirm ausgeben, so daß Sie sich über die 
augenblickliche Programmebene (MAIN/EDITOR/UTILITY) und die 
verfügbaren Kommandos unterrichten können. 
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3.1.7 'L' (- LIBT) 

Das ' L '-Kommando wird zum teilweisen oder kompletten Auslisten 
des eingegebenen Textes je nach Art der zusätzlichen Parameter¬ 
angabe benötigt. Grundsätzlich erfolgt das Listen in 
auf steigender Reihenfolge der Zeilennummern. Mit Hilfe der List- 
Option können also beliebige Teile des Textes auf den Bildschirm 
geholt und erforder1ichenfal1s neu editiert werden. Im einzelnen 
sind folgende Möglichkeiten vorgesehen: 

L ' 

(ohne Zusatz) listet den gesamten Text vom Anfang bis zum Ende. 

' Lxxxx ' 

listet lediglich die Zeile mit der Nr. xxxx. 


' L-xxxx' 


listet vom Textanfang bis zur Zeilen-Nr. xxxx einsch1ießlich. 


' Lxxxx -' 


listet ab Zeilen-Nr. xxxx einschließlich bis zum Textende. 

' Lxxxx-yyyy ' 

listet den Bereich des Textes, dessen Zeilennummern innerhalb 
(einschließlich xxxx und yyyy) der angegebenen Grenzen liegen. 
Ist der zweite Wert yyyy kleiner als der erste xxxx, so wird 
keine Zeile ausgegeben. 

Um die Textausgabe während des Listens besser verfolgen zu 
können, besteht neben der Ausgabeverzögerung durch die CTRL — 
Taste auch die Möglichkeit, durch Betätigen der Leertaste das 
Listing ganz anzuhalten und erst nach erneutem Druck auf die 
Leertaste weiter laufen zu lassen. Wünschen Sie an irgendeiner 
Stelle des Textes den Abbruch der List-Funktion, so ist dies 
durch Betätigen der RUN/STOP-T aste ohne weiteres möglich. 
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3.1.B 'M' (- MAP/DRIVE) 


Das ' M '-Kommando des Editors ist weitgehend mit dem des MAIN- 
Rahmens identisch, so daß alle weiteren Einzelheiten in 
Abschnitt 2.1.7 nachgelesen werden können. 


Der Aufruf aus dem Editor benötigt wie der Aufruf aus dem MAIN- 
Rahmen ebenfalls eine Hilfsroutine aus dem File LOADDAT, das 
also, neben dem eigentlichen Editorprogramm (C_EDITOR), auch auf 
der Diskette im Systemlaufwerk (Drive 0) vorhanden sein muß. 
Doch dessen Vorhandensein war ja bereits für das Aufrufen und 
Starten des Editors erforder1ich. 


Neben der Ausgabe des Directorys 
auch die Aufgabe, das jeweilige 
Start des Editors das Drive 0 
P:' und ’Uz ' festzulegen. 


hat der h '-Befehl des Editors 
Arbeitslaufwerk - es ist beim 
- für die Befehle 'At ', ' Gt' f 
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3.1.9 N' <- AUTO-NUMBER I NB) 

Beim Erstellen neuer Quel1 Programme bietet das ' N '-Kommando eine 
hilfreiche Unterstützung bei der Generierung der Zeilennummer, 
die nach dem Aufruf automatisch in 5er-Steps vorgegeben werden. 
Der Aufruf dieses Auto-Lining-Moduc' erfolgt auf zwei Arten» 

N' 

(ohne Zusatz) generiert als erste Zeilennummer eine Zahl, die um 
5 größer als die im bisherigen Text benutzte größte Zeilennummer 
ist. Für die Folgezeilen wird eine jeweils um 5 größere Nummer 
generiert. Damit wird also der zusätzlich einzugebende Text an 
den bereits vorhandenen angehängt. Wurde bisher noch kein Text 
eingegeben oder der alte restlos gelöscht, so startet das 
Generieren der Zeilennummern bei 1000. 

' Nxxxx ' 

beginnt mit der Zeilen-Nr. xxxx als erste automatisch erzeugte 
Nummer und fügt die nächsten Zeilen dann in 5er-Steps an. 

Eine Besonderheit dieses Kommandos sorgt dafür, daß die erste 
Schreibposition der nächsten Zeile mit dem Start des Textes in 
der zuletzt eingegebenen Zeile identisch ist, was bei der 
Erstellung Strukturierter Pascal- oder formatierter Assembler- 
Pr ogr ammtex te äußerst nützlich ist. Ein Wiedervorverlegen der 
vorderen Schreibposition ist selbstverständlich mit der 
entsprechenden Cursor-Steuertaste möglich. 

Falls eine Zeile, die im Auto-Lining-Modus eingegeben wird, 
zwecks Editieren einer anderen Zeile mit dem Cursor verlassen 
und diese andere Zeile mit RETURN erneut dem Editor übergeben 
wird, schaltet sich der Auto-Lining-Modus wieder ab. Auch bei 
der Eingabe einer leeren Zeile, d. h. bei einem unmittelbaren 
Betätigen der RETURN -Taste wird der -Modus wieder verlassen. 
Während der Texterstellung im Auto-Lining-Verfahren können keine 
weiteren Editor-Befehle eingegeben werden, da diese ja zwangs¬ 
läufig als Texteingabe aufgef aßt werden. ErfOrder1ichenfal1s muß 
also erst der ' N '-Modus - wie beschrieben - verlassen werden. 
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3.1.10 '0' <- OUTPUT-DEVICE) 


Mit diesem Kommando kann auf einfache Weise das aktive Ausgabe¬ 
gerät bestimmt werden. Nach dem Start des Editors ist dies 
zunächst natürlich der Bildschirm. Doch mit 

'Ox,y' 

kann die Geräteadresse jederzeit umdefiniert werden, wobei x die 
Primäradresse, d. h. die Gerätenummer bestimmt, während mit y 
die jeweilige Sekundäradresse festgelegt wird. Für einen nicht 
eingegebenen Wert y wird die Sekundäradresse auf 0 gesetzt. Das 
Zurücksetzen des Ausgabekanals auf den Bildschirm geschieht mit 

'00,0' bzw. '00' bzw. ' 0' 

Die Eingabe unzulässiger Geräteadressen (es sind nur 0 und 4 bis 
7 zugelassen) oder Sekundäradressen (es sind nur 0 bis 15 
zugelassen) wird mit der Fehlermeldung 

'1LLEG. INPUT/' 

'EXECUTION NOT SUCCESSFUL/' 

zurückgewiesen. 


Nach dem Umdefinieren des Ausgabekanals wird der gesamte - 
normalerweise auf dem Bildschirm wiedergegebene Output - auf dem 
angegebenen Gerät ausgegeben. Dies kann für das 'Ft'-, 'L'- und 
''-Kommando sinnvoll sein. Für eine Druckerausgabe des gesamten 
Textes ist jedoch das im MAIN-Rahmen aufrufbare W -Kommando 
(siehe 2.1.11) wesentlich besser geeignet, da damit ein 
übersicht1ieher seitenorientierter Ausdruck des Text-Files 
erzeugt werden kann. 


Ein Abbruch der umdefinierten Ausgabe mit der RUN/STOP-T aste 
oder infolge eines Fehlers schaltet den Ausgabekanal wieder auf 
den Bildschirm zurück. 
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3.1.11 'Pi' (- PUT SOURCE TO DIBC) 

Mit diesem Befehl wird der mit dem Editor erstellte bzw. 
editierte Text als Textfile auf eine Diskette abgespeichert. 
Dies ist für die anschließende oder spätere Kompilierung oder 
Assemblierung unbedingt erforderlich, da sowohl Compiler als 
auch Assembler das zu übersetzende Quel1programm auf der 
Diskette erwarten. Die Syntax sieht dabei wie folgt ausi 

’PsFILENAME' 

wobei FILENAME für den Namen steht, unter dem das auf der 
Diskette zu speichernde File im Directory verzeichnet wird. Der 
Speichervorgang erfolgt auf der Diskette, die sich im Arbeits¬ 
laufwerk befindet, das mit dem M -Kommando wunschgemäß 
definiert werden kann. 


Anstelle des für Bezeichner zu definierenden File-Namens kann 
auch das Symbol '*' benutzt werden, womit für den Bezeichner der 
zuletzt im Zusammenhang mit dem Ge' - oder ' P -Kommando 
definierte Name verwendet wird. Sollte noch kein solcher Name 
definiert worden sein oder durch die Benutzung des As'- oder 
'Us '-Kommandos Irrtümer möglich sein, wird das Kommando mit der 
Fehlermeldüng 

'TITLE UNDEFINED /' 

'EXECUTION NOT SUCCESSFUL/' 


beendet. 

Aus Sicherheitsgründen und zur Vermeidung von falschen Eingaben 
werden die endgültig vom Editor für das Abspeichern benutzten 
Parameter im Rahmen der folgenden Bestätigungsaufforderung 
nochmals ausgegeben: 

'C0NF1RH "FILENAHE,DRIVE_NR"? N/Y' 

Erst nach Bestätigung mit 'V' (* Yes) wird der ansonsten 

ignorierte Spei ehervorgang auf der Diskette begonnen. 
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Eventuell bei der Kommandoeingabe auftretende Fehler (falsche 
Syntax oder unzulässige Bezeichner) werden mit der 
entsprechenden Meldung beanstandet und führen zum Abbruch des 
Befehls. 


Wie bereits ausführlich unter 2.1.8 (' P '-Kommando des MAIN- 
Rahmens) beschrieben, ist bei der Eingabe des File-Namens die 
Syntaxvorschrift für Pascal-Bezeichner zu beachten. In diesem 
Zusammenhang muß darauf hingewiesen werden, daß Sie sich bei der 
Wahl der Bezeichner an eigene feste Regeln gewöhnen sollten, um 
später die verschiedenen, auf einer Diskette abgelegten Files 
einfacher auseinanderhalten zu können. 


ACHTUNG! 

Sehr wichtig ist die Berücksichtigung, daß bei der Kompilation 
eines Textfiles das vom Compiler erzeugte Programmfile unter dem 
Namen auf der Diskette abgespeichert wird, mit dem Sie den 
Programmkopf gemäß Pascal-Syntax (PROGRAM PROGRAMMNAME; ...) 
deklariert haben. Speichern Sie also das Textfile unter diesem 
Namen ab, so wird dieses File bei der Kompilation durch den 
erzeugten Programmcode überschrieben und gelöscht. 


Bei mir hat sich folgende Festlegung als sehr zweckmäßig 
erwiesen: 


S_NAME 

A__NAME 

C_NAME 

M_NAME 


als Namen für Pascal-Quel1fi1 es (Source) 

als Namen für Assemb1er-Quel1fi1 es (Asmblr) 
als Namen für Pascal-Programmcode (Code) 
als Namen für 6502-0bjektcode (M-Prgm) 


Die übrigen Files (Dateien) werden ohne einen besonderen Zusatz 
bezeichnet. 


- 66 - 



PROFI PASCAL 


Zu bedenken ist auch, daß File«, die unter gleichem Namen auf 
der Diskette abgelegt sind, durch das 'P-Kommando 

überschrieben, also gelöscht werden. I«t dagegen das File gegen 
überschreiben/Löschen geschützt, wird dies mit der bereits 
erwähnten Fehlermeldung 

' 1LL.FILE OPR .' 

angezeigt und das Abspeichern des Textfiles unter diesem Namen 
verhindert. 


Tritt im Laufe der Kommandoausführung ein sonstiger I/O-Error 
(Eingabe/Ausgabe-Fehler) auf, so wird ebenfalls nach 
entsprechender Fehlermeldung die weitere Befehlsausführung 
abgebrochen. Nach Ablauf des ' P :'-Kommandos - erfolgreich oder 
nicht - steht der Text im Editor nach wie vor zur eventuellen 
weiteren Bearbeitung zur Verfügung. 


- 67 - 



PROFI PASCAL 


3.1.12 'Q' (- QU ZT) 


Mit diesem Kommando können Sie den Editor verlassen und zum 
MAIN-Rahmen zurückkehren. Zur Vermeidung von Textver1usten durch 
voreiliges oder versehentliches Aufrufen des ' Q '-Kommandos fragt 
der Editor bei Vorliegen noch nicht abgespeicherter Texte mit 

'SURE NOT SAV1NG THE SOURCE? Y/N' 

nach und ermöglicht erst nach einem ausdrücklichen ' Y' ( s Yes) 
den Rücksprung in den MAIN-Rahmen. 


3.1.13 'R' <- RENUMBER) 


Zur neuen Durchnumerierung der Zeilen bei einem mit vielen 
zusätzlich eingefügten Zeilen versehenen Text oder größeren 
Lücken dient das ' R' -Kommando. Die Textzeilen werden beginnend 
mit der Nr. 1000 für die erste Zeile in 5er-Schritten durch¬ 
numer i ert . 


Ergibt sich im Zuge des Editierens von Texten die Notwendigkeit, 
eine größere Anzahl zusätzlicher Zeilen einfügen zu müssen, so 
können Sie die Einfügelücke mit 4, mit einem einfachen 
Füllzeichen gebildeten Zeilen füllen. Ein anschließendes ‘R‘- 
Kommando schafft dann an dieser Stelle sofort Platz für 
insgesamt 24 Zeilen usw. 
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3.1.14 '8* (- 8HIFT LINE) 


Es ist des öfteren erforder1ich, ganze Bereiche eines Programm¬ 
textes an eine andere Stelle zu tramferieren. Vor allem kann 
dies im Anschluß an das ' Ai '-Kommando notwendig werden. Diese 
Aufgabe übernimmt das ' S '-Kommando, das in folgender Syntax mit 
den erforder1ichen Parametern einzugeben ist* 

' Sxxxx-yyyy:zzzz' 

Das Kommando verschiebt den durch die Zeilen-Nr. xxxx und yyyy 
begrenzten Textbereich an die durch zzzz definierte Stelle, d.h. 
alle Zeilen, deren Nummern >« xxxx und gleichzeitig <® yyyy 
sind, werden unmittelbar hinter der Zeile eingefügt, deren 
Nummer <® zzzz ist. 


Falls die Zeilen-Nr. yyyy kleiner als die Nr. xxxx ist, wird 
keine Zeile verschoben. Sollte unsinnigerweise die Einfügestelle 
zzzz innerhalb des Bereiches xxxx..yyyy definiert worden sein, 
wird das Kommando mit der Meldung 

1LLEG. INPUT /' 

EXECUT10N NOT SUCCESSFUL /' 


ignoriert. 


Im Anschluß an die Verschiebung des Textes werden die jetzt 
nicht mehr in korrekter Reihenfolge befindlichen Zeilennummern 
durch ein internes ’R ‘-Kommando in 5er-Schritten neu durch¬ 
numeriert. Nun kann mit der neuen Textkonfiguration wie gewohnt 
weitergearbeitet werden. 
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3.1.19 'Ui' <- UPDATE FILE) 


Gewissermaßen als Gegenstück zum ' A :'-Kommando gestattet das 
' Ui '-Kommando das Anfügen des mit dem Editor bearbeiteten Textes 
an ein auf einer Diskette vorhandenes File. Die zu beachtende 
Syntax lautet: 

'UtFILENAME' 

wobei unter FILENAME der Name zu verstehen ist, unter dem das 
auf der Diskette abgelegte File verwaltet wird. Die Diskette muß 
sich in dem ggf. durch das 'M '-Kommando zu definierenden 
Arbeitslaufwerk befinden. 

Aus Sicherheitsgründen und zur Vermeidung von falschen Eingaben 
werden die endgültig vom Editor für das Abspeichern benutzten 
Parameter im Rahmen der folgenden Bestätigungsaufforderung 
nochmals ausgegeben: 

'C0NF1RM "FILENAME,DR1VE__HR "? H/Y‘ 

Erst nach Bestätigung mit 'V' (- Yes) wird der Speichervorgang 

auf der Diskette begonnen. Ansonsten wird der Befehl ignoriert. 

Ist das File als schreibgeschützt gekennzeichnet, so wird das 
'üj'-K ommando mit der Fehlermeldung 

' 1LL.F1LE OPR .' 

abgebrochen. Auch andere eventuell auftretende Input/Output- 
Fehler führen mit den entsprechenden Meldungen zu einem 
vorzeitigen Abbruch des 'Ut '-Befehls. Der im Editor vorhandene 
Text bleibt dabei jedoch erhalten. 

ACHTUNG! 

Durch das 'Ur '-Kommando können - besonders bei wiederholter 
Anwendung - extrem lange Textfiles auf der Diskette entstehen, 
die dann mit dem 'Ot '-Kommando nicht mehr komplett in den Editor 
eingelesen werden können. 
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3.1 .16 V' (- VACANCY) 


Mit diesem Kommando können Sie sich jederzeit über den für die 
weitere Texteingabe noch verfügbaren freien Speicherplatz 
unterrichten. Die Ausgabe erfolgt in Bytes. Im leeren Editor 
stehen zur Texteingabe mehr als 43000 Bytes zur Verfügung. 


Ein Mangel an Spei eherp1 atz wird rechtzeitig durch die Fehler- 
meldüng 


RAM 0VERFL0N /' 

'EXECUTION NOT SUCCESSFUL /' 

angezeigt (für evtl. Abhilfe siehe 3.3). 
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3.2 DAS ERBTELLEN VON PABCAL-PROBRAMNEN 


Unter diesem Abschnitt soll kurz auf das Erstellen von Pascal- 
Quell Programmen mit dem Editor tingegangen werden. 

Die Quel1 Programme sind grundsätzlich in der im "Pascal User 
Manual and Report" beschriebenen Syntax einzugeben. Für die in 
Pascal reservierten Worte (Keywords/Wortsymbole) und die 
Bezeichner (Ident i-f i er) sind als Buchstaben ausschließlich die 
ASCII-Großbuchstaben ($41 bis $5A) zugelassen. Diese werden - 
wie bereits am Anfang des Manuals erwähnt - in den beiden 
Sehriftdarstel1ungsmodi des C64 unterschiedlich dargestellt. 


Im Kl ein/Großschrift-Modus, wie er nach dem Start von PROFI 
PASCAL vorliegt, werden diese Buchstaben als Kleinbuchstaben 
dargestellt, während sie im Buchstaben/Graphik-Modus als Groß¬ 
buchstaben wiedergegeben werden. Sie können sich den gewünschten 
Darstellungsmodus mit C=/SH1FT jederzeit neu wählen. Zur 
Strukturierung von Bezeichnern ist als zusätzlicher Quasi- 
Buchstabe das '_'-Zeichen (ASCII *5F), außer am Wortanfang, 
zugelassen. Dieses Zeichen wird auf dem C64 als wieder¬ 
gegeben. 


Di,e auf dem C64 nicht verfügbaren Zeichen und ' > ' für die 

Kommentarklammern können durch '(*' und '*> ' ersetzt werden. 


Im übrigen können natürlich innerhalb von Kommentaren, Strings 
oder als CHAR-Typ alle verfügbaren Zeichen des C&4 benutzt 
werden. 
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Bei der Entwicklung von Pascal-Quel 1 Programmen auf dem C64 
bestehen hinsichtlich der Strukturierungsmöglichkeiten mit 
wenigen Ausnahmen keinerlei Einschränkungen; sie sind so belang¬ 
los, daß sie so gut wie gar nicht ins Gewicht fallen: 

Textzeilen können zusammen mit der autschließlich ordnenden 
Zeilennummer maximal 80 Zeichen umfassen (Abhilfei Text mehr 
gliedern); 

auf der Schreibstelle unmittelbar neben der Zeilennummer kann 
keine Ziffer eingegeben werden (Abhilfe: 1 Leerzeichen 
Abstand); 

es können keine Leerzeilen eingegeben werden (Abhilfe: Zeile 
mit leerem Kommentar '(*»)' eingeben)| 


Ansonsten ermöglicht das ' N '-Kommando eine recht bequeme Eingabe 
Strukturierter Programme durch die "Erinnerung" an die Einrück¬ 
tiefe des Textes. 


Trotz der beachtlichen Größe des Textspeichers im Editor (rund 
43000 Bytes) können durchaus Pascal-Quel1 Programme entwickelt 
werden, die wesentlich umfangrei eher sind. Solche Programme 
können beliebig in mehrere Abschnitte aufgeteilt und getrennt 
editiert und bearbeitet werden. Sie werden zweckmäßigerweise 
auch als einzelne Files auf der Diskette abgespeichert, so daß 
stets ein Nacheditieren eines Teiles möglich ist. Eine einfache 
Anweisung am Ende jedes Teiles sorgt dafür, daß diese Teile vom 
Compiler dann doch in einem Zuge bearbeitet werden. So besteht 
beispielsweise der von mir entwickelte und in Pascal formulierte 
Compiler aus insgesamt sechs Teilen mit je ca. 40 KB Umfang. Die 
Aufteilung eines Programms in mehrere Teile unterliegt im 
übrigen keinen Einschränkungen und kann von Ihnen nach Belieben 
und Gutdünken vorgenommen werden. Die Teile müssen legiglich 
syntaktisch korrekt aneinanderpassen. 
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Die Compileranweisung für das Aneinanderfügen der Programmteile 
während der Kompilation lautet« 

' &C0NT1NUE(FILENAME,DRIVE_NR );' 

oder 

'&C(FILENAME,DRIVE _NR )/' 

Diese in den Quelltext aufzunehmende und durch '|' vom übrigen 
Programmtext abzusetzende Anweisung veranlaßt den Compiler, die 
Kompilation im laufenden Quelltext zu beenden und unmittelbar 
mit dem Quellfile fortzufahren, das unter dem Namen FILENAME auf 
der Diskette im angegebenen Laufwerk abgespeichert ist. 
Seibstverständlich muß sich der Quelltext in dem angegebenen 
File syntaktisch korrekt zum vorhergehenden fortsetzen. 


Die vereinfachte Anweisung: 

' &CONT1NUE(FILENAME );' 

oder 

'&C(F1LENAME )/' 

kann in den Fällen gewählt werden, in denen sich der weitere 
Sourceteil auf derselben Diskette wie der laufende Programmteil 
befindet. 


Neben dieser Fortsetzungsanweisung für den Compiler gibt es noch 
eine zweite Möglichkeit, größere Programme zu erstellen bzw. 
gleiche Programmtei1e trotz mehrfacher Verwendung nur einmal als 
Quelltext zu generieren. Das wird mit der in das Quel1programm 
aufzunehmenden Einfügungsanweisung erreicht: 

‘ MNCLUDE (FILENAME, DR1VE_NR) } ' 

bzw. 

' 8,1 (FlLENAME, DRIVE_NR) / * 
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Diese Anweisung muß ebenfalls mit >' vom übrigen Programmtext 
abgetrennt werden. Sie weist den Compiler an, die Kompilation 
des laufenden Quellfiles zu unterbrechen und zunächst mit dem 
File fortzufahren, das durch die weiteren Angaben näher 
bezeichnet ist. Das angegebene File wird also an die mit der 
Einfügungsanweisung '47 ' versehene Stelle des laufenden Quell- 
textes eingefügt. Es muß natürlich syntaktisch einwandfrei an 
diese Stelle passen, da sonst vom Compiler entsprechende Fehler¬ 
meldungen generiert werden. 


Auch bei dieser Inc1ude-Anweisung kann mit der vereinfachten 
Form: 


' &1NC LUDE(F1LENANE); ' 

bz w. 

&I(FlLENAt1E) / ' 

auf die Laufwerksangabe verzichtet werden, falls der einzu¬ 
fügende Programmteil auf derselben Diskette gespeichert ist, wie 
der gerade in Übersetzung befindliche. 

Der mit der '47'-Anweisung einzufügende Programmtei1 kann 
seinerseits wiederum ' &C. ' - und '47 '-Anwei sungen enthalten. Mit 
der Include-Anweisung können Programme bis zu einer Tief® von 4 
ineinandergeschachtelten 'AI'-Anweisungen verarbeitet werden. 

Nach Abschluß der Kompilation des mit '47' einbezogenen 
Programmtei1 es setzt der Compiler die Programmübersetzung mit 
dem unmittelbar auf die Include-Anweisung folgenden Programmteil 
fort. 


Mit dieser Include-Anweisung lassen sich beispielsweise sehr 
bequem gleichlautende CONST-, VAR-, PROCEDURE-, FUNCTION- oder 
Statement-Definitionen in unterschiedliche Programme einbauen. 
In gleicher Weise wird der Graphikteil in das dem PROFI PA6CAL - 
System beigefügten Demonstrationsprogramm "Hi 1bert-Kurven" 
eingefügt bzw. kann von Ihnen in Ihre die HIRES-Graphik 
benutzenden Programme einbezogen werden. 
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Eine weitere, dritte Möglichkeit, den Aufbau von Pascal-Quel1- 
Programmen nach eigenen Bedürfnissen zu gestalten, ist die 
Anweisung zur bedingten Kompilation. Damit können verschiedene 
Programmversionen, die sich nur in einigen wenigen Punkten bzw. 
Programmteilen unterscheiden, dennoch in einem einzigen 
gemeinsamen Quelltext gepflegt und verwaltet werden. Diese 
Option wird mit der im Text einzufügenden Bedingungsanweisungs 

'&TRUTH(BOOLEAN_CONST );' 

oder 

'*7 <BOOLEAN_CONST )/' 

erreicht. Auch diese Anweisung muß, wie die übrigen, mit j ' vom 
restlichen Programmtext abgetrennt werden. Der Compiler wird 
angewiesen, den auf diese Anweisung folgenden Programmteil nur 
dann zu übersetzen, wenn die angegebene Boolsche Konstante den 
Wert TRUE hat. Hat die Konstante den Wert FALSE , wird der 
folgende Programmtei1 vom Compiler solange ignoriert, bis er 
durch eine erneute auf "wahr" gesetzte Bedingungsanweisung zur 
weiteren Kompilation aufgefordert wird. Hieraus ist zu 
entnehmen, daß die in der Bedingungsanweisung benutzten 
Konstanten vorher im Programm deklariert und definiert worden 
sein müssen. Vor der Kompilation muß also lediglich die der 
gewünschten Version entsprechende Konstante als TRUE definiert 
werden. Nun wird nur das dieser Version entsprechende Programm 
kompi1iert. 


Es ist sicher selbstverständlich, daß die Kompilation unabhängig 
von weiteren Konstanten mit der Anweisung StT(TRUE) immer 
eingeschaltet und mit &T(FALSE) immer ausgeschaltet werden kann. 


Die weiteren Compi1eranweisungen ' &P ' bzw. ‘&A’ sind weniger ein 
Mittel zur Gestaltung der Quell texte, sie dienen vielmehr zur 
Information über den Kompi1ationsprozeß. Aus diesem Grunde 
werden sie im Abschnitt über den Compiler näher behandelt. 
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3.3 DA8 ERSTELLEN VON AB8EMBLER-PR0GRAMMEN 


In diesem Abschnitt soll lediglich auf die Besonderheiten bei 
der textlichen Erstellung von Assembler-Sources eingegangen 
werden. Die eigentliche Behandlung des Assemblers erfolgt 
dagegen in Abschnitt 5. 


Die Assembler-Source muß in ihrer äußeren Form ganz bestimmten 
Regeln entsprechen, da der Assembler nur so in der Lage ist, den 
Quelltext in einwandfreier Form in 65XX-Maschinencode zu über¬ 
setzen. Dadurch ist aber gleichzeitig sichergestel1t, daß die 
Source sehr übersichtlich und klar gegliedert wird. 

Diese äußere Form für die Assemb1er-Source orientiert sich an 
bestimmten Zeichenpositionen (Spalten) innerhalb der Textzeilen. 
In diesem Zusammenhang muß der wichtige Gesichtspunkt 
berücksichtigt werden, daß der Assembler die zu assemb1ierende 
Source immer unmittelbar von der Diskette liest und der 
abgespeieherte Text sich stets ohne die ordnende Zeilennummer 
auf der Diskette befindet. Maßgebend für die Zeichenposition 
innerhalb einer Textzeile ist also nicht die jeweilige Spalte, 
in der ein Zeichen auf dem Bildschirm dargestellt wird, sondern 
der Abstand der Zeichen vom rechten Ende der Zeilennummer. 


Um die Angelegenheit nicht von vornherein unnötig zu 
komplizieren, sei hier einmal unterstellt, daß nur vierstellige 
Zeilennummern (1000..9999) benutzt werden. Dies sind ja auch die 
Zeilennummern, die mit dem '/f'-Kommando des Editors erzeugt 
werden, denn wie unter 3.1 beschrieben, wird beim neuen 
Durchnumerieren immer mit der Zeilen-Nr. 1000 begonnen. Daß sich 
bei der dabei vorgegebenen Folge von 5er-Schritten Zeilennummern 
über 9999 ergeben, ist selbst bei dem beachtlichen Speicherp1 atz 
von 43 KBytes für den Programmtext äußerst unwahrscheinlich. 
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Doch nun zur Position®- bzw. Spalteneinteilung innerhalb einer 
Textzeile der Assembler-Source. Der Assembler erwartet die 
verschi edenen Teile einer Quel 1 progr ammzei 1 e in klar de-finierten 
Feldern im Bereich der Zeile. So wird die Zeile in ein Label¬ 
feld, ein Instruktions- bzw. Operatorfeld und ein Operanden- 
bzw. Adreßfeld eingeteilt. Darüber hinaus ist durch Markieren 
bestimmter Spalten die Eingabe von Kommentaren möglich. Den 
genannten Feldern kommen also bestimmte spaltenmäßige Bereiche 
in der Zeile zu, d. h. bestimmte Source-Elemente müssen immer an 
der gleichen Stelle in den Zeilen stehen, während einige andere 
Elemente sich zum Teil an vorhergehenden Elementen in der 
gleichen Zeile orientieren. 


Im einzelnen hat demnach eine Assembler-Programmzei1e bei 
Unterstellung einer vierstelligen Zeilennummer folgenden Aufbaui 

1 2 3 

-> Spaltenpositions ....5....0....5....0..•.5....0....5.. 

-> Textzeile : ZZZZ LLLLLLLL III 00000000... 

Position 1..4 (ZZZZ m Zeilennummer) 

Feld zur Aufnahme der 4-stelligen Zeilennummer 

Position 5 (Leerzeichen) 

Diese Position enthält ein Leerzeichen zur Trennung der 
Zeilennummer vom darauffolgenden Labelfeld. 

Position 6..13 (LLLLLLLL - Labelfeld) 

In diesem Bereich sind die Labels einzutragen, mit denen Sie 
bestimmte Stellen in einem Assembler-Programm symbolisch 
kennzeichen möchten. Die Labels sind linksbündig, d.h. auf 
Pos. 6 beginnend, in das Labelfeld einzutragen. Als Label 
sind alle Bezeichner (Identifier) zugelassen, die sich nach 
den Bildungsregeln für Pascal-Bezeichner konstruieren lassen. 
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Die Bildungsregeln für Bezeichner (Labels) besageni 

8 signifikante Zeichen (mehr können ohnehin nicht ins 

Labelfeld aufgenommen werden), 
wobei das 

Anfangszeichen ein Buchstabe sein muß, während die 

Restzeichen aus Buchstaben, Ziffern oder (ASCII *5F) 

bestehen können. 


Unbenutzte Positionen des Labelfeldes bleiben leer (Leer¬ 
zeichen). Soll kein Label in einer Textzeile aufgenommen 
werden, so bleibt das gesamte Labelfeld leer (Leerzeichen). 

Position 14 (Leerzeichen) 

Enthält wie Spalte 5 ein Leerzeichen, welches das Labelfeld 
vom darauffolgenden Instruktionsfeld trennen soll. 

Position 15..17 (III = Instruktions- bzw. Operatorfeld) 

In dieses Feld ist die eigentliche, mnemotechnisch abgekürzte 
65XX-Maschineninstruktion einzugeben. Die Abkürzungen 

entsprechen den von Commodore für 65XX-Asstmblerprogramme 
festgelegten Definitionen. Im einzelnen handelt es sich dabei 
um die folgenden Instruktionen* 


ASL 

BPL 

CLV 

EOR 

LDX 

PLA 

SEC 

TAY 

BCC 

BRK 

CMP 

INC 

LDY 

PLP 

SED 

TSX 

BCS 

BVC 

CPX 

INX 

LSR 

ROL 

SEI 

TXA 

BEO 

BUS 

CPY 

INY 

NOP 

ROR 

STA 

TXS 

BIT 

CLC 

DEC 

JMP 

ORA 

RTI 

STX 

TYA 

BMI 

CLD 

DEX 

JSR 

PHA 

RTS 

STY 


BNE 

CU 

DEY 

LDA 

PLP 

SBC 

TAX 
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Neben diesen vom Assembler unmittelbar in 65XX-Maschinencode 
zu übersetzenden Instruktionen gibt es mehrere Pseudo- 
Befehle, die aber lediglich Assembleranweisungen darstellen: 


.BA 

.DL 

.EQ 

.OS 

.BY 

.DS 

.NE 

.SA 

.CT 

.EN 

.OC 

... 


Diese Pseudo-Operationscodes beginnen alle auf Position 15 
mit Die Pseudo-Befehle werden noch ausführlich in 
Abschnitt 5 (65XX ASSEMBLER) behandelt. Hier in diesem 
Abschnitt sollen weiter unten lediglich die den Assembler- 
Quelltext beeinflussenden Pseudo-Instruktionen .CT, .EQ, .NE 
und ••• besprochen werden. 

Position 18 (Leerzeichen) 

Enthält wie Spalte 5 und 14 ein Leerzeichen, welches das 
Instruktionsfeld vom folgenden Operandenfeld trennen soll. 

Position 19 ff. (00000000... = Operandenfeld) 

In Spalte 19 beginnt das in seiner Länge nicht eindeutig zu 
fixierende Operandenfeld. In ihm sind also die zur Operation 
gehörenden Operanden - gewissermaßen die Parameter des 
Maschinenbefehls - anzugeben. In erster Linie handelt es sich 
dabei um die symbolische oder absolute Adreßangabe derjenigen 
Speicherzelle, mit deren Inhalt die angeführte Instruktion 
auszuführen ist oder in der bei Sprunganweisungen der Folge¬ 
programmcode enthalten ist. 

Die Länge des Operandenfeldes ist von der Adreseierungsart 
des verwendeten Befehles, von der Länge des eventuell 
benutzten Labels, von der u.U. mit * oder - vorzunehmenden 
Adr«?ßberechnung usw. abhängig. Die maximale Länge des 
Opei andenfeldes wird jedoch durch die Zeilenlänge (maximal 
80 Zeichen einschließlich Zeilennummer) begrenzt. 
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Sollen in normale Assembler-Textzei1en zusätzlich vom Assembler 
zu ignorierende Kommentare aufgenommen werden, so genügt es, 
diese vom Operandenfeld durch ein Leerzeichen oder ein ' 
abzutrennen. Im übrigen können Kommantarzei 1en durch ein '| ' auf 
Position 6 oder Position 15 eingefügt werden. 


Mit den weiter oben erwähnten Assembler-Anweisungen .CT, . EQ, 
.NE und ... kann der Aufbau des Assembler-Quel1 Programms und der 
Ablauf des Assemb1iervorgangs, wie im folgenden erläutert, 
beeinflußt werden. 


Als erstes soll die Kettungsanweisung besprochen werden: 

' .CT FI LENAUE' 

Mit dieser Anweisung, die sich mnemotechnisch aus "Continue" 
ableitet, wird der Assembler aufgefordert, die Übersetzung mit 
dem Quellfile fortzusetzen, dessen Name als FILENAME im 
Operandenfeld der Pseudo-Instruktion .CT angegeben ist. Das 
Folgefile muß dabei auf derselben Diskette wie der gerade in 
Arbeit befindliche Programmteil abgespeiehert sein. Mit dieser 
Anweisung können also umfangreiche und längere Assembler¬ 
programme, die die Spei eherkapazität des Editors übersteigen, 
aufgeteilt und nur für das Assemblieren aneinander gekettet 
werden. 


Als nächstes wären die Bedingungsanweisungen 

‘.EQ OPERAND' 

und 

‘.NE OPERAND' 

zu erörtern. 
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Diese Anweisungen bieten die Möglichkeit der bedingten 
Assemblierung. Wie bereits unter 3.2 -für den Compiler erläutert, 
gibt es auch beim Assembler die Möglichkeit, in einem einzigen 
Quel1 pragramm die verschiedensten Versionen und Ausführungen zu 
editieren, pflegen und archivieren. Der Assembler wird mit dem 
Pseudo-Befehl .EQ - abgeleitet vons "if Operand EQUAL 0" - 
angewiesen, das der Anweisung folgende Programm nur zu 
übersetzen, wenn der angegebene Operand den Wert 0 hat. Dies 
läßt sich dadurch erreichen, daß Sie den Operanden gewissermaßen 
als Versionskenner in Form eines (Konstanten-)Labels definieren 
und am Anfang des Programms diesen Versionskenner auf 0 setzen. 


Mit der Pseudo-Instruktion .NE ("if Operand NOT EQUAL 0") wird 
dagegen der Assembler zur Übersetzung aufgefordert, falls der 
Operand einen von 0 abweichenden Wert hat. Auch dies ist durch 
das Definieren eines entsprechend gesetzten Labels zu erreichen. 


Treffen die angegebenen Assemblier-Bedingungen nicht zu 
(bei .EQ ist der Operand <> 0 bzw. 
bei .NE ist der Operand « 0), 

dann werden die der Bedingungsanweisung folgenden Programmzei1en 
ignoriert. Erst mit der Pseudo-Instruktion 


wird die bedingt zu assemb1ierende Programmsequenz beendet. 
Danach übersetzt der Assembler den folgenden Teil des Quell¬ 
programms wieder ganz normal. 

Das auf der folgenden Seite wiedergegebene Programmbeispiel soll 
die aufgeführten Möglichkeiten erläutern. Es demonstriert die 
Ausgabe eines Zeilenendezeichens (Carriage Return = CR) an die 
Zeichenausgabe-Routine Für die beispielsweise angenommenen 
Programmversionen C64, PET und ABCs 
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1100 

C64 

.DL 

1 

fNe ist 

dem 

Label 

C-64 

den 

Nert 

1 

zu 

1105 

PET 

.DL 

0 

fNe ist 

dem 

Labe 1 

PET 

den 

Nert 

0 

zu 

1110 

ABC 

.DL 

0 

fNe ist 

dem 

Label 

ABC 

den 

Nert 

0 

zu 

1200 

CR 

.DL 

*OD 

fNe ist 

dem 

Label 

CR 

den 

Nert 

13 

zu 


1300 .NE C64 ;bedingte Assembl. falls C64 <> 0 


1350 BSOUT 


.DL SF1CA fNe ist dem Label BSOUT Adr. zu 


1390 
1395 ; 
1 400 
1405 ; 


... fEnde der bedingten Assembl. C64 

.NE PET ; bedingte Assembl. falls PET <> 0 

Nird hier ignoriert, da PET = 0/ 


1450 BSOUT 


.DL $FFD2 (Neist dem Label BSOUT Adr. zu 


1490 
1495 ; 
1500 
1505 ; 


... fEnde der bedingten Assembl. PET 

.NE ABC fbedingte Assembl. falls ABC <> 0 

Nird hier ignoriert, da ABC * 0/ 


1550 BSOUT 


.DL SFFOO fNe ist dem Label BSOUT Adr. zu 


1590 


fEnde der bedingten Assembl. ABC 
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2000 

OUTCR 

/ 

CR-Ausgabepr ogr amm, 


2005 


LDA #CR 

flädt CR-Code und übergibt an 

2010 


JSR BSOUT 

}die Ausgaberout ine, 


2015 

; 




2020 


.NE ABC 

;bedingte Assembl. falls ABC 

<> 0 

2025 

/ 


um zusätzlich zum CR den Code LF 

2030 


LDA #*0A 

f(LINE FEED) auszugeben, Mas 

bei 

2035 


JSR BSOUT 

jCBM und PET entfällt. 


2040 

; 


m ird hier ignoriert, da ABC 

= 0/ 

2040 


... 

ItEnde der bedingten Assembl. 

ABC 


;nc iteres Programm für alle Versionen 


3000 
3005 
3010 ; 
3015 ; 


.CT DEN0_2 ;Assembl.Anweisung, die Überset- 
fzung mit dem Sourcefile DEM0_2 
fortzusetzen, das sich auf der¬ 
selben Diskette befinden muß. 
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3.4 DAS ERSTELLEN VON SEMI8CHTEN PROGRAMMEN 

Eine besondere Stärke des Compilers des PROFI PASCAL - Systems 
liegt darin, daß er nicht nur reine Pascal-Programme übersetzen 
kann, sondern auch in einem solchen Programm eingebettete 
Assembler-Routinen. Die als Assemb1er-Quel1programm formulier¬ 
baren Abschnitte sind als Pascal -PROCEDURE oder -FUNCTION zu 
deklarieren und können aus dem Pascal-Programm wie ganz normale 
Prozeduren oder Funktionen aufgerufen werden. Dabei ist es sogar 
auf einfache Art und Weise möglich, der in Maschinensprache 
definierten Prozedur oder Funktion Parameter beliebiger Art zu 
übergeben. Die in diesem Zusammenhang zu beachtenden Einzel¬ 
heiten und übergabemechani einen sollen hier aber nur am Rande 
Gegenstand der augenblicklichen Betrachtung sein; sie werden in 
Abschnitt 4.1.2.3 detailliert behandelt. Jetzt soll im Prinzip 
nur auf die im Zusammenhang mit der Programmerstellung 
relevanten Aspekte eingegangen werden. 


Wie bereits gesagt, ist also der Einbau eines Maschinenprogramm- 
abschnittes in ein Pascal - Programm als Pascal - PROCEDURE oder 
-FUNCTION vorzunehmen. Die in normaler Assembler-Notation* gemäß 
den Ausführungen unter 3.3 und 5 zu formulierende Maschinen¬ 
routine erhält einen pascal-gerechten Prozedur— oder Funktions- 
kopf mit eventueller Parameterdefinition. Eine lokale Typen¬ 
oder Variablendeklaration entfällt. Anstelle des dann 
üblicherweise mit BEGIN und END zu umklammernden Pascal- 
Anweisungstei1 es folgt nach der in diesem Fall zu verwendenden 
Compi1er-Anweisung 

' ASSEI1BLE; ' 

der Assembler-Quel1programmtei1. 
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Die Compiler—Anweisung ASSEMBLE ist von den übrigen Programm¬ 
teilen mit einem «bzutrennen. Wenn Sie anstelle des jetzt 
unmittelbar im Pascal - Programmtext zu formulierenden 
Assemblerteiles ein auf der Diskette abgespeichertes Assembler- 
Textfile in das Pascal-Programm einbeziehen wollen, so wird dies 
mit der Anweisung 

' ASSEMBLE(FlLEHAME,DRIVE_HR)f ' 

veranlaßt. In diesem Fall wird das mit FILENAME definierte File 
vom Compiler im mit DRIVE_NR angegebenen Floppylaufwerk 
angesprochen und als Maschinenroutine in das laufende Pascal- 
Programm übersetzt. Befindet sich das einzubeziehende Assembler- 
Quellfile auf der aktuellen Arbeitsdiskette, so genügt die 
vereinfachte Anweisung 

' ASSEMBLE(FILENAME );' 


Innerhalb der Assembler-Routine kann auf die auf der Pascal- 
Ebene definierten Konstanten zurückgegriffen werden. Weiterhin 
können über die intern vereinbarte symbolische Adresse STKP01 
(= Stackpointer) die eventuell übergebenen Parameter vom Pascal- 
Var i abl enstack geholt bzw. die Funktionsrückgabewerte auf den 
Variablenstack abgelegt werden. 


Die Maschinenroutine ist mit der Instruktion RTS abzuschließen, 
was zum Rücksprung an die aufrufende Pascal-Programmstel1e 
führt. Der Assembler-Abschnitt ist darüber hinaus aus 
syntaktischen und formellen Gründen mit dem Pseudo-Befehl .EN zu 
beenden. In der nächsten Zeile des Quel1 Programms muß sich das 
weitere Pascal-Programm syntaktisch korrekt anschließen. 


Die hier wiedergegebenen Ausführungen mögen an einem kurzen 
Programmauszug demonstriert werden. Die beschriebene Prozedur 
soll als kleine, in ein Pascal-Programm eingebettete 
Maschinenroutine die Farbe des Bi 1dschirmrahmens beim C64 
ändern. 
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1500 PROCEDURE RAHI1ENFARBE < FARBE : BYTE ) ß 
1505 {} 

1510 {die Routine erhält einen Pascal-Prozedurköpf und soll 
1515 mit der zu setzenden Rahmenfarbe als Parameter 


1520 

(hier 

in Form eines B) 

1525 

{} 



1530 

ASSEMBLEß 


1535 

; 



1540 

CPUPORT 

.DL 

$01 

1545 

RAHMN_RG 

.DL 

$D020 

1550 

f 



1 555 


SEI 


1560 


LDA 

*CPUPORT 

1565 


ORA 

#3 

1570 


STA 

*CPUPORT 

1 575 


LDY 

#0 

1580 


LDA 

(STKPOl) f Y 

1 585 


STA 

RAHNN _RG 

1590 


LDA 

*CPUPORT 

1595 


AND 

U$FC 

1600 


STA 

*CPUPORT 

1605 


CL1 


1610 


INC 

*STKPOI 

1615 


BNE 

EX1T 

1620 


INC 

*STKP01+1 

1625 

EX IT 

RTS 


1630 

/ 



1635 


.EN 


1640 

{} 



1645 

{jetzt 

geht 

es im Pasc 

1650 

{ 




tes) aufgerufen werden} 


(vorbereitendes Sperren des IRQ 
(wegen der vorzunehmenden Ände¬ 
rung der Speicherkonfigurationt 
ß (1 / 0 enable) 

(Setzen des Indexregisters 
(Abrufen des Parametcrs 
fSetzen der Rahmenfarbe 
;Rücksetzen der Speieherkonfigu- 
ßration (1/0 disable) 

ßIRQ erlauben 

fBereinigen des Pascal-Variab- 
ßlenstacks (Erhöhen) um den 
ßPlatz des über gabepar ameter s 
ßRücksprung zur Pascal 

ßEnde der Assembler-Routine 

1-Programm ganz normal weiter} 


2000 RANNENF ARBE <*0) ; 

2005 (Aufruf zum Einschalten der Rahmenfarbe SCHHARZ? 
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3.9 DIE INTERNE ORGANISATION DES EDITORS 


In diesem Abschnitt sollen einige Erläuterungen und Anmerkungen 
zur Organisation und Arbeitsweise des Editors selbst und zum 
Aufbau der vom Editor erzeugten Textfiles gemacht werden. Damit 
verbunden ist auch die Betrachtung der Speicherplatzverwaltung 
während des Editierens von Texten. 


Der Editor ist bis auf einen kleinen zeitkritischen Abschnitt 
selbst ein Pascal-Programm. Das komplette Listing ist im Anhang 
am Ende des Manuals als ausführ1iches Demonstrationsbeispiel 
wiedergegeben. Wenn also mit dem -Kommando aus dem MAIN- 
Rahmen der Editor aufgerufen und gestartet wird, kommt im 
Prinzip ein normales Pascal-Programm lediglich über ein 
besonderes Aufrufkommendo zur Ausführung. 


Bei der Erstellung des Editorprogramms war vor allem die 
Entscheidung über die Organisation und Struktur der Variablen, 
die die einzelnen Textzeilen enthalten, von größter Wichtigkeit. 
Hierbei kam den Fragen hinsichtlich des erfOrder1ichen 
Speicherplatzes auf der einen und hinsichtlich des schnellen 
Auffindens der Zeilen auf der anderen Seite eine grundsätzliche 
Bedeutung zu. Darüber hinaus mußte versucht werden, die 
Definition der Variablen ausreichend flexibel zu halten, um 
eventuell verschiedene Editorversionen (ggf. für verschiedene 
Rechner) problemlos anpassen zu können. Ich entschied mich nach 
Abwägung der zum Teil sich gegenseitig beeinflussenden oder 
einschränkenden Gesichtspunkte zur Definition der dynamischen 
Variablenstruktur der verketteten Liste. Die Bildung und 
Verwaltung solcher Strukturen wird besonders stark von Pascal 
unterstützt; sie gestatten einen sehr schnellen Zugriff. 
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Die Verwendung einer solchen Struktur ermöglicht das Einfügen, 
Löschen, Ändern oder Verschieben von Elementen, also hier der 
Zeilen mit ihren Inhalten, ohne besondere Probleme. Der Zeilen¬ 
inhalt ist dabei als STRING-Größe definiert, was den für eine zu 
speichernde Zeile erforderlichen Speicherp1 atz auf ein Maß 
reduziert, welches durch die jeweilige aktuelle Zeilenlänge 
bestimmt wird. Andererseits ist aber durch diese dynamische 
Struktur der Variablen bedingt, daß sie auf dem sogenannten 
Paacal-Heap, der Speicherp1atzhalde für dynamische Variablen, 
abgelegt werden und damit auch nach dem Löschen oder Ändern als 
"Tex11 eichen" den von ihnen ursprünglich benötigten Platz 
weiterhin belegen. Ein Entfernen nicht mehr benötigter Text¬ 
strings innerhalb der Halde und die erneute Nutzung dieses 
Speicherbereiches würde umfangreiche Pointermanipulationen und 
Textverschiebungen im Speicher erforderlich machen, wodurch 
jedoch die Programmeffiz i enz und -geschwindigkeit stark leiden 
würden; Gründe, die den eingeschlagenen Programm- und Variablen— 
auf bau trotz des sich u. U. aufblähenden Speicherp1 atzbedarfs 
rechtfertigen. 


Vor allem kann es bei umfangreicher Editierarbeit geschehen, daß 
durch ständiges Neuerzeugen und/oder Löschen bereits vorhandener 
Zeilen der belegte Speicherplatz rasch größer wird, ohne daß die 
Zahl der regulär zu speichernden Zeilen in gleichem Maße 
zunimmt. Es ist also durchaus möglich, daß sich der Platz auf 
der Halde erschöpft, obwohl der Umfang des bearbeiteten Textes 
nur minimal oder gar nicht zugenommen hat. Dies ist der Preis, 
der bei Verwendung einer verketteten Liste für ihre einfache 
Handhabung und den schnellen Zugriff zu zahlen ist. 
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Doch zum Glück gibt es einen recht einfachen Ausweg aus dieser 
Speicherplatzmisere. Meldet der Editor nach umfangreicher 
Editierarbeit, daß der Speicher belegt ist, so genügt es in der 
Regel, den bisher eingegebenen Text temporär auf eine Diskette 
abzuspeichern, um ihn anschließend sofort wieder in den Editor 
zu laden. Beim Abspeichern werden ja lediglich die gültigen 
editierten Zeilen aus dem Speicher entsprechend der durch die 
Zeilennummer festgelegten Reihenfolge ausgelesen und auf der 
Diskette abgelegt. 


Dem anschließenden Neuladen dieses temporären Textfiles geht die 
Neuorganisation und das Löschen des vom Editor verwalteten 
Speicherplatzes voraus, so daß nach dem Ladeprozeß lediglich der 
für den Text erfOrder1iche Speicherplatz belegt ist. Die "Text¬ 
leichen" sind verschwunden, der von ihnen belegte Platz wurde 
freigemacht und steht für Neueingaben zur Verfügung. Erst wenn 
der gesamte Speicherplatz durch endgültigen Text restlos belegt 
ist, müssen andere Wege zur Bearbeitung größerer Programme 
beschritten werden. Diese bieten sich - wie bereits in den 
Abschnitten 3.2 bis 3.4 beschrieben - durch die Aufteilung der 
Programme mittels der Compiler-Anweisungen &C0NT1NUE, A1HCLUDE 
und ASSEMBLE sowie der Assembler-Anweisung .CT an. 
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3.6 DER AUFBAU DER TEXTFILEB 


Zum Abschluß dieses Kapitels sollen noch einige Anmerkungen zum 
Aufbau der Textfiles gemacht werden. Sie erhalten somit die 
Informationen, um ggf. fremde Programme, die als Quellfiles 
vorliegen, so aufzubereiten, daß sie den Bedingungen und 
Anforderungen von PROFI PASCAL entsprechen. 


Die im Rahmen von PROFI PASCAL auf Disketten verwalteten Text¬ 
files genügen der Typendeklaration TEXT gemäß Standard-Pascal, 
d. h. sie sind als FILE OF CHAR mit dem im "Pascal User Manual 
and Report" vereinbarten Zusatz deklariert, daß die einzelnen 
Zeilen mit einem Zeilenendezeichen - hier also Carriage Return 
(ASCII $0D) - abgeschlossen sind. Dieses Zeilenendezeichen ist 
der (einzige) Delimiter (Trenner) zwischen den Zeilen. Die 
restliche Zeileninformation besteht ausschließlich aus dem die 
jeweilige Zeile ausmachenden Textstring. Wie ja bereits mehrfach 
erwähnt, werden die Quel1 Programme beim Abspeichern ohne Zeilen¬ 
nummer oder sonstige Zusätzen als Textfiles angelegt. Ein 
besonderes File-Endezeichen (EOF) wird nicht erzeugt und ist 
nicht Bestandteil der Files. Die im Rahmen von Pascal verfügbare 
Funktion EOF wird aus den zu dem jeweiligen File im Directory 
abgelegten Informationen gewonnen. 


Sollten also fremde Programme als Quell texte vorliegen und 
können sie in der beschriebenen Form als TEXT auf der Diskette 
angelegt werden, was ggf. durch ein einfaches Fi 1e-Änderungs- 
programm möglich ist, so sind diese Programme durchaus vom PROFI 
PASCAL - Compiler verarbeitbar. Einzige Voraussetzung dabei ist, 
daß sie entweder der im "Pascal User Manual and Report" 
beschriebenen Standard-Syntax entsprechen bzw. in ihren Sprach- 
erweiterungen auf PROFI PASCAL abgestimmt sind. Anderenfalls 
wären entsprechende Fehlermeldungen des Compilers die Folge. 
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4 DER PABCAL - COMPILER 

Im Vorwort wurde bereits vermerkt, daß dieses Manual zu PROFI 
PASCAL kein Lehrbuch zum Erlernen der Programm!ersprache Pascal 
sein will und auch kein solches sein kann. Dies würde weit über 
den Rahmen dieses Handbuches hinausgehen und den Um-fang dieser 
Ausführungen sprengen, zumal in der letzten Zeit ein umfang¬ 
reiches Literaturangebot zu diesem Thema erschienen ist. In 
diesem Zusammenhang sei auf die Literaturhinweise im Anhang 
dieses Manuals verwiesen. Dennoch sollten an dieser Stelle 
einige grundsätz1iche Betrachtungen zur Programmiersprache 
Pascal angestellt werden. 


Gleichgültig aus welcher Perspektive Pascal betrachtet wird, 
diese Sprache ist ein Phänomen und dies umso mehr, als daß die 
Sprache Pascal ihren Erfolg ohne jegliche Unterstützung von 
kommerzieller Seite erfahren hat - die mög1icherweise bemerkens¬ 
werteste Erscheinung seit der Entwicklung von Programmier¬ 
sprachen überhaupt. 


Der große Erfolg von Pascal dürfte sich aus der inneren 
Geschlossenheit dieser Sprache herleiten. Dies ist meines 
Erachtens darauf zurückzuführen, daß diese Sprache in ihrer 
grundsätzlichen Definition und Konzeption durch eine einzelne 
Person, Niklaus Wirth, Professor an der TH Zürich, entwickelt 
und im "Pascal User Manual and Report", dem anerkannten 
Standardwerk über Pascal, vorgestellt wurde. 


Der Name für diese Programmiersprache wurde von Wirth zu Ehren 
des französischen Mathematikers Blaise Pascal gewählt. Blaise 
Pascal hatte bereits Mitte des 17. Jahrhunderts als einer der 
ersten eine funktionsfähige Rechenmaschine entwickelt und 
gebaut. 
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4.1 DER 8PRACHUMFANB 

Die Beschreibung des PROFI PASCAL - Compilers läßt sich am 
besten anhand der Besprechung sämtlicher Sprachsymbole und 
Befehlswörter nachvollziehen, die die Programmi ersprache Pascal 
zur Verfügung stellt. Als erstes sollen dabei alle standardmäßig 
vereinbarten Sprachelemente behandelt werden, wobei sich die 
Reihenfolge aus ihrem möglichen Auftreten innerhalb eines 
Programms ableitet. In den weiteren Abschnitten soll dann auf 
die beachtlichen Erweiterungen und Zusätze des Compilers im 
PROFI PASCAL - System eingegangen werden. 


4.1.1 DIE BTANDARD-SPRACHELEMENTE 


Jedes Pascal-Programm hat den gleichen strukturel1en block¬ 
orientierten Aufbau. Dieser Programmblock zerfällt in einen 
Vereinbarungstei1 und einen Anweisungsteil. Der Vereinbarungs¬ 
teil enthält die für das im Programm behandelte Problem 
erfOrder1ichen Definitionen und Deklarationen, während der 
Anweisungsteil die Bearbeitungsanweisungen (Statements) enthält, 
die die Art und Weise bestimmen, nach denen die vereinbarten 
Größen zu verknüpfen sind. Die innerhalb eines solchen Programms 
vereinbarten Unterprogramme (Prozeduren und Funktionen) haben 
ihrerseits den gleichen Blockaufbau wie das Programm selbst und 
orientieren sich an den gleichen syntaktischen Vorschriften. In 
diesem Top-Down-Konzept liegt ein wichtiger Aspekt der Eleganz 
in der Struktur eines Pascal-Programms. Diese Top-Down-Struktur 
soll auch die Reihenfolge, in der die einzelnen Sprachelemente 
behandelt werden, bestimmen. Dabei wird ihre Betrachtung auf die 
Besonderheiten ausgerichtet sein, die bei ihrer Verwendung im 
Rahmen von PROFI PASCAL zu beachten sind. Zur Darstel1ungsform 
sei noch vermerkt, daß die standardmäßigen Symbole und 
Bezeichner in diesem Abschnitt an den Stellen ihrer Definition 
in Fett-Kursiv-Schrift wiedergegeben sind. 
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ProarammkopfVereinbarung 

Jedes Pascal-Programm beginnt mit dem Progr ammkop-f , der zur 
Identifikation des Programms und seiner Parameter nach außen hin 
gedacht ist und folgenden Aufbau hat* 

PROGRAM PROGRAMMNAME(FILEPARAMETERLISTE );' 

PROORAM ist das reservierte Wortsymbol für den Programmkopf. 

PROGRAMMNAME steht für den aktuellen Programmbezeichner, der das 
Programm kennzeichnen soll; unter diesem Namen wird bei PROFI 
PASCAL der vom Compiler erzeugte Programmcode auf der Diskette 
abgespeiehert und im betreffenden Directory verwaltet. 


ACHTUNG! 

Das Quel1programm sollte unbedingt unter einem anderen Namen als 
diesem im Programmkopf verwendeten abgespeichert werden, weil 
sonst das Quellfile durch das gleichnamige Codefile 
überschrieben wird. 

FILEPARAMETERLISTE steht für den oder die (durch Kommata 
getrennten) Bezeichner derjenigen Files, die auch außerhalb des 
Programms existieren sollen und im Programm benutzt werden. Dazu 
gehören auch die Files INPUT und OUTPUT . Diese Deklaration der 
vom Programm benötigten externen Files ist ein Relikt aus dem 
Betrieb der Großrechneran1agen, wo für das Aufrufen eines 
Programms nicht nur der entsprechende Programmcode, sondern auch 
die erforder1ichen Daten (Files) explizit bereit gestellt werden 
mußten. Auf einem Homecomputer wie dem C64 ist dies nicht 
erforder1ich; hier können die im Programm benötigten Files im 
unmittelbaren Diskettenzugriff bearbeitet werden. Dies gilt erst 
recht für die Files INPUT und OUTPUT , die ja ständig in Form der 
Tastatur und des Bildschirms verfügbar sind. Aus diesem Grunde 
kann - muß aber nicht - die gesamte Fi 1e-Parameter1iste im 
Programmkopf ersatzlos (einschließlich der Klammern) entfallen, 
so daß sich die Programmdek1aration wie folgt vereinfacht* 

'PROGRAM PROGRAMMNAME ;' 
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Als nächstes muß im Verlauf des Vereinbarungstei1 es - falls 
vorgesehen - die 

Label Vereinbarung 

wie folgt vorgenommen werden« 

‘LABEL LABELLISTE; ' 

LABEL ist das reservierte Wortsymbol für die Labeldeklaration. 

LABELLISTE steht für die (ggf. durch Kommata getrennte(n)) 
Labelnummer(n). Die jeweilige Labelnummer wird im Programm im 
Zusammenhang mit der G07"O-Anweisung als Ansprungmarke benutzt 
und besteht aus einer ganzzahligen Dezimal konstante im Werte 
zwischen 0 und 32767 (MAXINT ). 


Der auf die Labeldeklaration folgende Teil ist die 

Konstantenvereinbaruna. 

die wie folgt vorzunehmen ist« 

‘CONST KONSTANTENLISTE;' 

CONST ist das reservierte Wortsymbol für die Konstanten- 
vereinbarung. 

KONSTANTENLISTE steht für eine beliebige durch Semikolons (' 5 ') 
voneinander getrennte Folge von Konstantendefinitionen derart, 
daß einem symbolischen Bezeichner ein fest fixierter Wert durch 
das Gleichheitszeichen ('»') zugeordnet wird. Ganzzahlen können 
dabei sowohl dezimal als auch mit vorangesetztem '^'-Zeichen in 
Hex-Notation angegeben werden. Im Rahmen von PROFI PASCAL ist es 
statthaft, die den Konstantenbezeichnern zuzuordnenden Werte 
durch einfache Rechenoperationen oder Funktionsverknüpfungen mit 
anderen Konstanten oder konstanten Größen zu bilden. Das auf der 
nächsten Seite angegebene Beispiel einer Konstantendek1aration 
zeigt einige der gegebenen Möglichkeiten. 
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CONST NERT = 3; ZIFFER = 'O'/ 

ENDNERT = NERT * *FF *5/ RETURN = CHR($OD); 

ASCII = ORD(* X *)ß NENIG = PRED(MAX )/ 

Der gesamte Umfang dieser Verknüpf ungsmögl ichkei ten wird unter 
4.1.2.1 bei der Behandlung der Spracherweiterungen beschrieben. 

Standardmäßig sind die -folgenden Konstanten vorde-f i ni er t * 

FALSE mit dem Ordinalwert 0, 

TRUE mit dem Ordinalwert 1 

und 

NAXIHT mit dem Ordinal wert 32767 

An dieser Stelle wären zwei weitere Konstanten aufzuführen, die 
zwar nicht in der Konstantendeklaration benutzt werden können, 
die aber dennoch innerhalb eines Programms syntaktisch wie 
Konstanten behandelt werden. Es handelt sich dabei um 

NIL als Pointerkonstante auf NICHTS 

und 

fj als Konstante für die leere Menge. 


An die Konstantendeklaration schließt sich die 

T ypvereinbarunq 

an, die in folgender Meise vorzunehmen ist: 

'TYPE TYPENLISTE;' 

TYPE ist das reservierte Wortsymbol für die Typenvereinbarung. 
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TYPENLISTE steht für eine beliebige, durch Semikolons <'j'> 
voneinander getrennte Folge von Typende-finitionen. Die grund¬ 
sätzliche Typendefinition hält sich streng an die im "Pascal 
User Manual and Report" festgelegte Syntax. Bei der Definition 
von Unterbereichstypen können jedoch die bereits bei der 
Konitantenvereinbarung erlaubten Verknüpfungen mit Konstanten 
vorgenommen werden, so daß beispielsweise folgende Definitionen 
möglich sind: 


TYPE INDEX 

BEFEHLE 

FELD 

TAGE 

ARBEITTG 


0..PRED(MAXNERT )/ 

ARRAY CCHR(O)..PRED<' ' ) 3 OF CHARf 

ARRAY El..10*101 OF INTEGERf 
(SO,MO,DI,MI,DO,FR,SA)| 

SUCC(SO)..PRED(SA)j 


Bei der Definition von anwenderspezifischen skalaren Typen (wie 
im vorletzten Beispiel) darf der Wertebereich eines solchen Typs 
maximal 256 Werte umfassen. 


Standardmäßig sind folgende Typen vordefinierte 
BOOLEAN = (F ALSE f TRUE );, 

CMAR = (CHR(O)..CHR(fFF)) 

INTEGER = -MAXINT..MAX INT / 

und 

REAL Sie werden mit mehr als 11-stelliger Genauigkeit binär 

kodiert verarbeitet. 

Der größte darstellbare Zahlenwert ist« 

+/-3.4028236692 E +38 

Der kleinste von 0.0 unterscheidbare Zahlenwert ist: 

+/-8.8162076312 E -39 
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Darüber hinaus sind die nachstehenden reservierten Wort- bzw. 
Zeichensymbole für Strukturanweisungen von Variablentypen 
vorgesehen z 

ARRAY 

Arrays können ohne Einschränkung auf folgende Arten mehr¬ 
dimensional definiert werden: 

ARRAY CD1M1,D1H2. ..7 OF ELEMENT ;, 

ARRAY CDIM1JCDIM2J . . . OF ELEMENT / 

oder 

ARRAY CD1M13 OF ARRAY CD1M2J ... OF ELEMENT ; 

RECORD 

Die Definition von invarianten (festen) und Varianten Records 
ist zulässig; bei Varianten Records werden die verschiedenen, in 
einer CASE- Liste zusammengefaßten Feldvariablen übereinander 
angelegt; der Komponentenvariablen (tagfield) wird nur bei 
expliziter Felddefinition ein Speicherplatz zugewieseni wird für 
die Komponentenvariable nur ein Typname benutzt, so ist dieses 
Feld kein Bestandteil des Records. 

SET 

Mengen sind über alle skalaren Typen (ausgenommen REAL) 
zugelassen; ein SET kann maximal 256 Elemente enthalten; die 
Ordinalzahlen der Elemente dürfen den Bereich 0..255 nicht 
ver1assen. 


FILE 

Der Typ FILE darf selbst nicht Element eines Strukturiorten Typs 
sein, d. h. er darf nicht als Element eines Arrays, Records, 
Pointers oder eines Files auftreten. Im übrigen dürfen wegen der 
begrenzten Größe der File-Puffer die Elemente des Typs FILE eine 
Länge von 512 Bytes nicht überschreiten. 
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t (Pointer) 

Bei der Definition von Pointertypen sind die im Zusammenhang mit 
der Konstruktion von Listen- und Baumstrukturen erforder1ichen 
Vorwärtsverweise und Rekursionen erlaubte 

ZUE IG - fKNOTENf 
KNOTEN = RECORD 

EINTRAGiARRAY CO..71 OF CHARf 
LZNEIG, 

RZNEIG j ZN EIG 
ENDf 

ACHTUNG! 

Ist dem Compiler bei der Definition 
ZHE1G = TKNOTEN f ' 

bereits aus einer vorhergehenden Definition der Typ KNOTEN 
bekannt, wird ZNEIG nicht mehr als Pointer auf die für KNOTEN 
folgende Recorddefinition angelegt, sondern als Pointer auf den 
bereits definierten Typ. 


An Strukturierten Typen sind gemäß "Pascal User Manual and 
Report" vordefinierti 

ALFA - ÄRRAY CO..71 OF CHARf 

und 

TEXT - FILE OF CHARf . 
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Der nächste Punkt im Verei nbarungstei 1 ist die wie -folgt 
autgebaute 


Variablenvereinbaruna: 

VAR VARIABLENLISTE? ' 


VAR ist das reservierte Wortsymbol für die Variablendeklaration. 


VARIABLENLISTE 
gruppen, die 
Variablengruppe 
Aufzählung der 
abschließenden 
erhalten, z . B. s 

VAR F LAG,SH1TCH 
CH 

HERT ,ZAEHLER,SUMME 
TITLE,Fl LEN AHE 
FELD 
HEAP 


Variablen- 
sind. Eine 
) getrennte, 
nach einem 
Typzuweisung 

tBOOLEAN ; 

:CHAR; 
sINTEGERf 
tALFAf 

tARRAY CO..91 OF INTEGER / 
INTEGER / 


steht für die beliebige Folge von 
durch Semikolons zu trennen 

ist die, ggf- durch Kommata (' 
Variablenbezeichner, die 
'«'-Zeichen eine einheitliche 


Standardmäßig sind die Variablen 

INPUT 

und 

OUTPUT 

vordefiniert (beide vom Typ TEXT). 
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In diesem Zusammenhang ist es angebracht, den von den verschie¬ 
denen Variablentypen benötigten Speicherplatz zu erörtern: 

Variablen des Typs BOOLEAN, CHAR 
und anwenderspez i f i sch definierte 

skalare Größen benötigen.1 Byte Spei cherpl atz . 

INTEGER- und Pointer-Variablen 

sowie Namen-Parameter benötigen.2 Bytes Speicherplatz. 

REAL-Var i abl en benötigen. 6 Bytes Speicherplatz. 

SET-Var i abl en benötigen.32 Bytes Speicherplatz. 

Die mit diesen Variablentypen gebildeten, Strukturierten 
Variablen benötigen dann einen Speicherplatz, der der Summe des 
Platzes aller Elemente entspricht. Beispielsweise benötigt eine 
ALFA-Variable 8 Bytes, die KNGTEN-Variable benötigt entsprechend 
der oben angeführten Typendeklaration 10 Bytes. 

An die Variablenvereinbarung schließen sich die 

P roz e d ur ver einbarunq 

und die 

Funktionsvereinbarung 

an; sie haben folgende Form: 

PROCEDURE PROZEDURNAHE (PARAHETERLISTE)j ' 

und 

FUNCTION FUNKTIONSNAME(PARAMETERLISTE)sTYPNAMEf ‘ 


PROCEDURE i st 

vereinbarung. 

das 

reservierte 

Wortsymbol 

für 

die 

Prozedur— 

FUNCTION ist 

vereinbarung. 

das 

reservierte 

Wortsymbol 

für 

die 

Funktions- 
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TYPNAME definiert den Typ de* Funkt i onsr ückgabewertea, d.h. den 
Typ, der durch den Funktionsaufruf sich ergebenden Größe. In 
PROFI PASCAL sind alle Typkonstruktionen mit Ausnahme de» Typ* 
FILE für den Funktionsrückgabewert zulässig. 

PARAMETERLISTE steht für die Definition der an die Prozedur bzw. 
Funktion zu übergebenden Parameter. Die Parameter1i»te iat 
entsprechend der Syntaxvorsehrift gemäß "Pascal User Manual and 
Report" zu deklarieren. In PROFI PASCAL «ind alle Arten von 
übergabeparameter zugelassens 

ParameterÜbergabe per Wert, 

ParameterÜbergabe per Name und 

Prozedur- und Funktionsübergabe per Name. 

Die verschiedenen Möglichkeiten seien an zwei Beispielen 
dargestel11 : 

FUNCTION FILEHANDLING (ELHNT tINT EGERßV AR SEQUiTEXTß 

PROCEDURE FEHLER)tBOOLEANß ’ 

PROCEDURE TEST(NERT1,NERT2:lNTEGERßVAR HESGtALF Aß 
FUNCTION CHECKtBOOLEAN)ß • 


Explizite Typdefinitionen in der Parameterdeklaration oder der 
Funktionsdeklaration sind - wie in Standard-Patcal - nicht 
vorgesehen; hier müssen bereits definierte oder deklarierte Typ¬ 
namen benutzt werden. 


Im Anschluß an die Prozedur-/Funktionskopfdeklaration folgt - 
wie unter dem Programmkopf auch — ein eigener neuer, die 
jeweilige Prozedur bzw. Funktion beschreibender Block. Dieser 
stimmt syntaktisch völlig mit dem in diesem Abschnitt 
beschriebenen Programmblockaufbau überein und braucht deswegen 
nicht weiter behandelt zu werden. 
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An den bisher besprochenen Vereinbarungstei1 schließt sich der 
zweite Abschnitt eines Programmblockes an. Er wird durch den 

Anweisunastei1 

gebildet. Dies ist die in Statements beschriebene Programm¬ 
aktivität. Der gesamte Anweisungsteil wird mit den beiden 
reservierten Wortsymbolen 

BEOIM 

und 


EHD 

eingeschlossen. BEGIN und END stellen gewissermaßen die Klammern 
■für eine Statementfolge dar. Die Statementfolge wird durch die 
Wortsymbole BEGIN und END syntaktisch zu einem einzigen 
Statement zusammengeschnürt. 

Im einzelnen kennt Standard-Pascal die folgenden Statements, 
wobei es hier aber nicht um deren genaue Syntax geht (sie ist in 
jedem Pascal-Lehrbuch nachzulesen), sondern sie sollen nur 
vollständigkeitshalber aufgeführt werden und im Hinblick auf 
eventuelle Besonderheiten bezüglich PROFI PASCAL beleuchtet 
werden s 


•» (Assignment « Zuweisung) 

Damit wird der links vom Zuweisungsoperator stehenden Variablen 
der auf der rechten Seite stehende Ausdruck zugewiesen. 


IF mm» TNEN »»• ELSE »»» (Wenn-Dann-Andernfa 11 s-'Verzweigung) 

Mit diesem Statement ist eine Wenn-Dann-Andernfal1«-Verzweigung 
möglich. Gibt es keine besondere Andernfal1s-Verarbeitung, so 
wird dieser ELSE-Zweig nicht programmiert. 
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CASE ... OF ... END (Vielfach-Verzweigung) 

Dieses Statement wird bei Mehrfach-Verzweigungen eingesetzt. Die 
Auswahlfolge ist mit END abzuschließen. In PROFI PASCAL besteht 
hinsichtlich der Anzahl der Auswahlfälle keine Begrenzung. 
Trifft keiner der angeführten Auswahlwerte zu, so erfolgt keine 
Fehlermeldung, sondern der Programmfluß setzt sich unmittelbar 
mit dem nächsten Folgestatement fort. 


NN1LE ... DO ... (Wiederholungsschlei f e, einstiegsbedingt) 

Das WHILE-Statement ist in PROFI PASCAL ohne Besonderheiten 
imp1ementier t. 


REPEAT ... UNTIL ... (Wiederholungsschleife, abbruchbedingt) 

Das REPEAT-Statment ist ebenfalls ohne Besonderheiten verfügbar. 


FOR ... TO/DONNTO ... DO ... (Wiederholungsschleife, abzählbar) 

Für die Schleifenzähler können beliebig definierte, skalare 
Variablen (außer REAL-Variab 1en) benutzt werden. 


NJTN ... DO ... (Record-Zugriff»Steuerung) 

Mit diesem Statement vereinfacht sich der Zugriff auf die Feld¬ 
variablen eines Records. Dies kann bei umfangreichen Feldlisten 
sowohl Schreibaufwand im Quelltext einsparen als auch Zeit¬ 
ersparnis zur Runtime bringen, da die aufwendige Adreßrechnung 
für den Feldzugriff vereinfacht wird. 
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GOTO m.• (Sprunganweiiung) 

Dieses Statement gestattet das Anspringen eines auf der 
jeweiligen Ebene bekannten Labels und erlaubt so ein Verlassen 
des normalerweise in Pascal streng von oben nach unten 
verlaufenden Programmf1usses. Damit wird das klare Top-Down- 
Konzept von Pascal, das sich auch in der kontinuierlichen 
Beschreibung der Programmaktionen wiederspiegelt, unterlaufen. 
Aus diesem Grunde sollte sich die Benutzung des GOTO-Btatements 
auf Ausnahmesituationen beschränken. In solchen Fällen ist es 
dann durchaus legitim und nach meiner Ansicht auch angezeigt, 
die GÖTO-Anweisung einzusetzen. Ein solcher Sonderfall ist 
beispielsweise die in vielen Programmen einzubauende Fehler— 
behandlung - der vorliegende Pascal-Compi1 er ist ein typisches 
Beispiel dafür. In diesen Fällen gestattet die Benutzung des 
G070-Statements den "bequemen Ausgang" aus dem Programmfluß beim 
Auftreten eines Fehlers, eben der Ausnahmesituation. Dies wäre 
anderenfalls nur durch aufwendige und möglicherweise 
umständlichere IF-THEN-ELSE-Verzweigungen - eventuell nur unter 
Verwendung zusätzlicher Flags - programmierbar. 


In PROFI PASCAL ist das GOTO-Btatement ohne Einschränkungen 
implementiert. So ist es beispielsweise auch gestattet, aus 
einer eingenesteten Prozedur oder Funktion auf eine 
übergeordnete Ebene zu springen, ohne daß das System trotz 
unterschiedlicher VerSchachtelungstiefe durcheinandergerät. 
Damit ist das voll implementierte GOTO-Statement wesentlich 
universeller einsetzbar als beispielsweise "EXIT" oder 
ähnliches, was in der Regel nur ein vorzeitiges Verlassen des 
gerade laufenden Blockes erlaubt. Beim Einspringen von außen in 
den inneren Teil von Schleifen hinein muß man sich jedoch 
darüber im klaren sein, daß dann meistens die für den korrekten 
Schleifenablauf gesetzten Rahmenbedingungen nicht einwandfrei 
initialisiert sind, was in der Regel zu unkontrol1ierten und 
fehlerhaften Programmabläufen führt. 
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Damit wären bereits alle in Standard-Pascal verfügbaren 
Statements besprochen. Doch sie genügen, um die anfallenden 
programmtechnisehen Probleme bequem, elegant und klar 
strukturiert lösen zu können. In dieses klare und eindeutige 
Konzept - mit wenigen wohl Strukturierten Anweisungen auszukommen 
- fügt sich die in Pascal auanutzbare elegante Möglichkeit ein, 
mehr oder weniger viele Statements, die zu einem Komplex 
gehören, unter einem passenden Oberbegriff als Prozedur oder 
Funktion zusammenzufassen. Die so unter einem Namen verpackte 
Anweisungsfolge (Block) kann dann einfach durch Aufruf dieser 
Prozedur oder Funktion - also gewissermaßen unter Nennung des 
"Verpackungsnamen*" - an jeder gewünschten Stelle des Programms 
zur Ausführung kommen. Es muß nur dafür gesorgt werden, daß 
diese Prozedur- bzw. Funktionsdefinition an der Aufrufstelle 
bekannt ist. 

Um nun das Programmieren in Pascal weiter zu vereinfachen, 
wurden in Standard-Pascal bereits eine ganze Reihe solcher 
Statementfolgen vordefiniert und dem Anwender zur Benutzung in 
seinem eigenen Programm zur Verfügung gestellt. Es handelt sich 
hierbei um die sogenannten Standard-Prozeduren und -Funktionen, 
die an jeder Stelle des Programms einfach durch Aufruf ihres 
eindeutig festgelegten Namens verfügbar sind. 


Die in Standard-Pascal vordefinierten 

Standard-Prozeduren 

sind auch weitgehendst in PROFI PASCAL verfügbar und umfassen in 
alphabetischer Reihenfolge« 


DISPOSE 

Diese Prozedur ist in Standard-Pascal zum Freigeben von 
Speicherplatz vorgesehen, der von dynamischen (Pointer-) 
Variablen auf dem Heap (Speicherplatzhalde für dynamische 
Variablen) belegt wurde. Der Platz wurde ihnen zunächst mit HEH 
zugewiesen (siehe auch unter dem entsprechenden Abschnitt). 
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Der für dynamische Variablen zu reservierende Speicherplatz ist 
in einem Homecomputer wie dem C64 anders als bei Großrechnern, 
auf denen Pascal ursprünglich entwickelt wurde, stark vom Typ 
der jeweiligen Variablen abhängig. Eine automatische Verwaltung 
dieses Speicherplatzes und das Zur-Verfügung-Stel1en beim 
Freiwerden würde einen enormen Programm- und Speicherplatz¬ 
aufwand erfordern, der in keiner Meise durch den erzielten 
Nutzen gerechtfertigt wäre. Aus diesem Grunde wird in PROFI 
PASCAL, wie im übrigen bei fast allen Pascal-Versionen für Home- 
und Personal Computer, auf DISPOSE verzichtet. Dafür werden 
andere Mechanismen zur Verwaltung des Haldenspeicherplatzes 
bereitgestellt (MARK und RELEASE ). Sie bilden einen akzeptablen 
Kompromiß zwischen dem programmtechnisehen Aufwand für den 
Programmierer und dem Nutzen, der in einer kontrol1ierbaren 
Speicherplatzverwaltung liegt. 


OET 

Mit GET wird der Lesezeiger, der in ein mit RESET geöffnetes 
File zeigt, um ein File-Element weitergesetzt. 

Syntax s ' GET(FI LEV AR1AB LE ); ' 

FILEVARIABLE steht für den Bezeichner, der im Vereinbarungstei1 
als Variable vom Typ FILE deklariert wurde. In PROFI PASCAL ist 
GET auch auf das File INPUT möglich| dadurch wird der Zugriffs¬ 
zeiger auf den nächsten zu lesenden Character gesetzt (siehe 
auch Anmerkungen unter READ/READLN ). 
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HEU 

Mit NEU wird einer Pointervariablen unter Pascal-Kontrol1e auf 
dem Heap (Variab1enhalde für dynamische Variablen) ein Speicher¬ 
platz zugewiesen und reserviert, d. h. der eigentliche Pointer 
erhält den Wert des Heapzeigers, der auf den nächsten freien 
Haldenplatz zeigt. Anschließend wird der Heapzeiger um die Größe 
der Pointervariablen weitergesetzt. 

Syntax: ' NEU (POINTERVARIABLE)f ' 

POINTERVARIABLE steht für den Bezeichner, der im Vereinbarungs- 
teil als Variable vom Typ POINTER deklariert wurde. Der Zugriff 
auf diese Variable geschieht mit POINTERVAR1ABLE *. 

ACHTUNG! 

Ein noch nicht mit NEU initialisierter Pointer ist unbestimmt} 
er zeigt auf irgendeinen zufälligen Speicherplatz und eine 
Zuweisung an die Pointervariable kann in einem solchen Falle 
u.U. fatale Auswirkungen auf das Programm oder andere Variablen 
haben. Der Inhalt einer mit NEU initialisierten Variablen ist 
ohne eine Initialzuweisung unbestimmt, d.h. sie hat wie alle 
Variablen zunächst einen unbestimmten (dem zufälligen Speicher¬ 
platzinhalt entsprechenden) Wert. 

Ein auf NIL gesetzter Pointer erhält den Zeigerwert O, d. h. er 
zeigt auf den Speicherp1 atz $0000, der ja beim C64 als Heap 
nicht in Frage kommt. 


Der Speicherbereich für die dynamischen Variablen wächst in 
PROFI PASCAL mit jeder Neuzuweisung per NEU durch Inkrementieren 
des Haidenzeigers um die erforder1iche Variablengröße dem sich 
nach unten ausdehnenden Stack, dem Speicherbereich für die 
statischen Variablen, entgegen. Zur Vermeidung gegenseitiger 
Beeinflussung der Variablen wird in PROFI PASCAL das Ineinander¬ 
laufen beider Bereiche überwacht und gegebenenfalls mit 
folgender Runtime-Feh1ermeldüng angezeigt: 

'STK.0V. ERROR/' 
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Um einen solchen Runtime-Fehler und den damit verbundenen 
Programmabbruch aumzuschließen, kann mit der in PROFI PASCAL 
verfügbaren Funktion FREE der noch vorhandene freie Speicher¬ 
platz zwischen Halde und Stack kontrolliert werden. 


PACK 

Diese Standard-Prozedur dient in Standard-Pascal dazu, 
Strukturierte Variablen speicherplatzsparend (dicht) zusammen- 
zupacken. Dies ist in PROFI PASCAL bereits durch interne Maß¬ 
nahmen weitgehendst sichergestel1t. Ein weiteres Packen würde in 
erheblichem Maße nur zu Lasten der Ausführungszeit beim 
Variablenzugriff möglich sein und nur noch wenig Speicherplatz 
einsparen. Aus diesem Grunde erübrigt sich die Anwendung der 
Prozedur PACK - sie ist zur Vermeidung von programmtechnisehen 
Unsicherheiten in PROFI PASCAL nicht verfügbar. 


PUT 

Analog zu GET wird mit PUT der Schreibzeiger in einem mit der 
Prozedur REHRITE geöffneten File um ein File-Element weiter¬ 
gesetzt. 

Syntax: ' PUT(F J LEV AR1 AB LE ); ' 

FILEVARIABLE steht für den Bezeichner, der im Vereinbarungstei1 
als Variable vom Typ FILE deklariert wurde. Im Gegensatz zu GET 
hat in PROFI PASCAL die Prozedur PUT(OUTPUT) keine Wirkung; PUT 
ist nur in regulären auf der Diskette abzuspeichernden Files 
möglich. 
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READ 

Die Prozedur READ hat eine Doppelwirkung| zum einen dient eie 
zur Zuweisung des gerade im Zugriff befindlichen File-Elementes 
an eine Zielvariable, zum anderen zum anschließenden Weiter¬ 
setzen des Lesezeigers auf das nächste File-Element. 

Syntax s 'RE AD(F1 LEVAR1ABLE,ZIELVAR1ABLENLISTE) ;' 

FILEVARIABLE steht für den Bezeichner der gerade im Zugriff 
befindlichen File-Variablen. Wenn es sich um das File INPUT 
handelt, braucht diese Variable nicht explizit angegeben zu 
werden. Die Syntax vereinfacht sich dann zu« 

'READ(ZIELVARIABLENLISTE )/' 

ZIELVARIABLENLISTE steht für die mindestens aus einem Bezeichner 
bestehende, ggf. durch Kommata getrennte, Folge von Variablen, 
die eine nach der anderen mit dem jeweils nächsten File-Element 
gefüllt werden. Es ist selbstverständlich, daß sämtliche Ziel¬ 
variablen vom gleichen Typ sein müssen wie die File-Elemente. 
Eine Ausnahme von dieser Regel gibt es bei Files vom Typ TEXT , 
also auch bei dem File INPUT . Bei diesen Files können die Ziel¬ 
variablen als vom Typ CHAR, INTEGER oder REAL deklariert sein. 
Bei den Zieltypen INTEGER und REAL wird automatisch mit der 
Zuweisung die erfOrder 1iche Umwandlung von der ASCII-Darstel1ung 
des Zahlenstrings im File zur internen binären Kodierung in den 
Variablen vargenommen. 


In diesem Zusammenhang sind noch folgende Gesichtspunkte zu 
beachten. Beim Einlesen von Integer- oder Real-Werten in 
entsprechende Variablen aus Files vom Typ TEXT können die 
Zahlenstrings mit jedem Zeichen abgeschlossen werden, das einen 
Zahlenstring syntaktisch beendet. Dieses Zeichen wird mit dem 
laufenden Read-Zugriff nicht mehr gelesen. Der File-Zugriffs- 
zeiger zeigt nach der Read-Operation auf dieses Folgezeichen. 
Vor der nächsten Integer- oder Real-Leseoperation müssen diese 
Abschlußzeichen übersprungen werden. Dies ist sowohl mit GET als 
auch mit einer Read-Operation in eine CHAR-Variable möglich. 
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Eb muß dafür gesorgt werden, daß der Zugriffszeiger wieder auf 
dem Anfang des nächsten Zahlenstrings steht, wenn eine 
numerische Variable mit READ eingelesen werden soll. Lediglich 
führende Leerzeichen (Spaces) brauchen dabei nicht berück¬ 
sichtigt zu werden - sie werden beim Lesen einer Integer- bzw. 
Real-Variablen ignoriert. Aus diesem Grunde ist es am sinn¬ 
vollsten, wenn beim ununterbrochenen Lesen von numerischen 
Variablen aus Textfiles die Zahlenstrings lediglich durch Leer¬ 
zeichen (mindestens eins) getrennt werden. Werden keine Trenn¬ 
zeichen zwischen den Zahlenstrings verwendet, so werden zwangs¬ 
läufig die beiden Zahlenstrings zu einem einzigen zusammen¬ 
gezogen und Fehlinterpretationen sind unweigerlich die Folge. 


Einer besonderen Betrachtung bedarf das im File-Typ TEXT als 
Zeilendelimiter enthaltene Zeilenendezeichen (Carriage Return = 
ASCII $0D). Steht der Fi 1e-Zugriffszeiger auf diesem Zeichen, so 
wird der Funktionsrückgabewert der Funktion EOLN auf TRUE 
gesetzt. Dieses Zeichen wird beim Einlesen eines Einzel- 
characters als Leerzeichen (ASCII $20) interpretiert, und beim 
Lesen einer numerischen Variablen wird dabei in diese der Wert 0 
eingelesen. Danach steht der Lesezeiger auf dem ersten Zeichen 
der nächsten Zeile. 


Weitere Besonderheiten liegen in dieser Beziehung bei der Text¬ 
variablen INPUT vor. Auch für diese Fi 1e-Variable steht im 
System ein eigener File-Puffer zur Verfügung. Dieser ist nicht 
zu verwechseln mit dem Tastaturpuffer, in dem lediglich die 
zuletzt betätigten Tasten solange zwischengespeichert werden, 
bis sie vom C64-Betriebssystem weiterverarbeitet werden. 
Unterstellt man zunächst einmal einen leeren Input-Puffer, so 
wird bei einer Read-Prozedur, die sich auf das File INPUT 
bezieht, die C64-Systemroutine "GETLINE" aufgerufen, über die 
dieser Puffer erst einmal zu füllen ist. "GETLINE" liest die 
Tastatur aus und gibt die eingegebenen Zeichen unter Cursor- 
Kontrolle auf dem Bildschirm wieder. Die Programmkontrol1e 
verbleibt solange in dieser Routine, bis auf der Tastatur die 
RETURN-Ta*te (EOLN) betätigt wurde. Damit wird die Textzeile in 
den Input-Puffer übernommen, in der sich der Cursor beim 
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Betätigen der RETURN-Tamte gerade befand. Nun wird aus diesem 
Input-Puffer die erste Zielvariable über den Read-Aufruf 
versorgt. Der Zugriffzeiger wird um so viele Zeichen im Puffer 
weitergesetzt, wie für die Versorgung der Zielvariablen an 
Zeichen erforderlich ist. Anschließend werden bei einem erneuten 
READ oder dem Versorgen einer weiteren Zielvariablen die 
nächsten Zeichen unmittelbar aus dem Input-Puffer gelesen. Die 
Prozedur GET(JHPUT) bewirkt in diesem Zusammenhang ein Weiter¬ 
setzen des Zeigers um eine Zeichenposition. 


Die Versorgung der Read-Prozedur aus dem Input-Puffer geschieht 
so lange, bis der Zugriffszeiger hinter das Zeilenendezeichen 
bewegt wurde (Carriage Return * ASCII $0D>, das hier ebenfalls 
als Leerzeichen bzw. numerischer Wert 0 interpretiert wird. Mit 
dem nächsten READ wird dann, wieder über "GETLINE" (Cursor 
blinkt), der Input-Puffer erst einmal erneut zu füllen sein, 
wobei der Zugriffszeiger wieder auf den Anfang des Puffers 
gesetzt wird. 


Ein Unterschied zwischen dem READ aus einem "Diskettenfile" und 
dem File INPUT ist auch hinsichtlich der Auswirkung von 
unzulässigen Zeichen für numerische Variablen zu beachten. Jedes 
syntaktisch als Anfangszeichen für Zahlenstrings nicht 
zugelassene Zeichen führt zur Fehlermeldung« 

' IL.INPUT' 

Bei einem Zugriff in ein "Diskettenfile" wirkt sich dies als 
Runtime-Fehler mit Programmabbruch aus, während beim Zugriff auf 
INPUT stets eine neue korrekte Eingabe wiederholt werden kann, 
ohne daß es zu einem Programmabbruch kommt. 
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READLN 

Hinsichtlich der Standard-Prozedur READLN gelten zunächst die 
gleichen Überlegungen, wie sie bereits unter READ angeführt 
wurden. Doch darüber hinaus hat READLN noch eine zusätzliche 
Wirkung auf den Zugriffszeiger. Nachdem alle Zielvariablen 
versorgt sind, wird bei READLN der Lesezeiger hinter das nächste 
Zeilenendezeichen (Carriage Return * ASCII $0D) gesetzt, d.h. 
der nächste Lesezugriff führt beim Lesen eines "Diskettenfi1 es" 
in die nächste Zeile, und beim Lesen des Files INPUT wird wieder 
"GETLINE" aufgerufen. Mit READLN werden also nach dem Versorgen 
aller Zielvariablen die bis zum Zeilenendezeichen eventuell noch 
vorhandenen Zeichen einschließlich desselben überlesen und 
ignoriert. Bliebe noch anzumerken, daß READLN auch ohne Angabe 
einer Zielvariablenliste möglich isti 

‘READLN(FILEVARIABLE )/' 

oder vereinfacht beim File INPUT 

‘READLN / ' 


Mit diesen Prozeduraufrufen werden lediglich die betreffenden 
Fi 1e-Zugriffszeiger hinter das nächste Zeilenendezeichen trans- 
portiert. 


Die Prozedur READLN kann wegen des erwarteten Zeilenendezeichens 
nur einwandfrei ablaufen, wenn sie bei Files vom Typ TEXT 
angewandt wird. Deshalb werden dieser Voraussetzung entgegen¬ 
stehende Programmanweisungen bereits bei der Kompilation vom 
Compiler zurückgewiesen. 
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Wird ein File-Zugriff, unabhängig ob mit GET , READ oder READLN , 
in ein File vorgenommen, das nicht mit RESET zum Lesen geöffnet 
wurde, so wird nach der Runtime-Fehlermeldüng 

NOT OPEN ERROR/' 

die weitere Programmausführung abgebrochen. Dies gilt jedoch 
nicht für das File INPUT , da dieses nicht explizit geöffnet zu 
werden braucht* RESET(INPUT) hat eine besondere, noch zu 
erläuternde Wirkung. 


RESET 

Mit RESET wird ein File zum Lesen geöffnet, d.h. der File— 
Zugriffszeiger wird auf das erste Element dieses Files gestellt. 


Syntax: ' RESET(FILEVARIABLE ); ' 

FILEVARIABLE steht für den Bezeichner, der im Vereinbarungstei1 
als Variable vom Typ FILE deklariert wurde. 


Eine Besonderheit hinsichtlich RESET wäre für das File INPUT zu 
erwähnen. Die Standard-Prozedur RESET(INPUT) führt dazu, daß der 
Lesezeiger im Input-Puffer wieder auf den Pufferanfang zurück¬ 
gesetzt wird und die Zeichen des Files INPUT erneut eingelesen 
werden können. Dies ermöglicht eine bequeme Art des Voraus- 
schauens in das File INPUT mit der anschließenden Entscheidung, 
die mit READ bzw. READLN zu versorgenden Zielvariab 1en nur bei 
korrekter Eingabe-Syntax nach einem RESET(INPUT) zu versorgen. 
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REHRITE 

Analog zu RESET wird mit REHRITE eine File zum Schreiben 
geöffnet, d.h. der Fi 1e-Zugriffszeiger wird auf den Anfang des 
neu einzurichtenden Files gesetzt. 

Syntax: ' REHR1TE(FILEVARIABLE );' 

FILEVARIABLE steht für den Bezeichner, der im Vereinbarungstei1 
als Variable vom Typ FILE deklariert wurde. 


ACHTUNG! 

Ein bereits auf der Diskette vorhandenes File wird mit REHRITE 
gelöscht und neu angelegt. Ausgenommen davon sind Files, die 
gegen Löschen/überschreiben geschützt sind. In einem solchen 
Falle wird die Runtime-Feh1ermeldüng 

1L.F1LE OPR. ERROR/' 

erzeugt und das laufende Programm abgebrochen. 

Ein REHRITE(OUT PUT) ergibt keine sinnvolle Systemanwendung und 
ist aus diesem Grunde nicht vorgesehen. Ein derartiger Prozedur— 
aufruf bleibt ohne Wirkung. 

Sowohl REHRITE als auch RESET können nur auf Files angewandt 
werden, 1 die im gerade als Arbei tsl auf wer k definierten Drive 
verfügbar sind. Wird das zu öffnende File nicht gefunden, kommt 
es mit einer entsprechenden Meldung zu einem Runtime-Feh1 er 
einschließlich Programmabbruch. Das Arbeitslaufwerk kann 
erforder1ichenfal1s mit der noch zu besprechenden Prozedur 
SETDRV definiert werden. 


In Bezug auf die Fi 1e-öffnungsprozeduren RESET und REHRITE sind 
sicher noch folgende Hintergrundinformationen von Interesse. Mit 
dem öffnen eines "Diskettenfiles" - gleichgültig ob zum Lesen 
oder zum Schreiben - wird für den durchzuführenden File-Zugriff 
ein File-Puffer reserviert. 
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Diese Fi 1 e-Puffer haben eine Größe von 1024 Bytes. In den mit 
RESET reservierten Puffer werden die beiden Anfangssektoren (je 
512 Bytes) des geöffneten Files geladen. 


Nun können mit einem relativ einfachen Zugriffsmechanismus über 
den File-Zugriffszeiger (wie bei Pointertypen) die in der Typ- 
und Variablendeklaration vereinbarten File-Elemente aus diesem 
Puffer entnommen werden. Erst wenn der Zugr i f f sz ei ger nach 
entsprechend vielen READs bzw. GETs außerhalb des ersten Sektors 
zeigt, werden die Sektoren im Puffer nach unten verschoben und 
die obere Pufferhälfte wieder mit dem nächsten Sektor des 
angesprochenen Files von der Diskette gefüllt. Diese Vorgehens¬ 
weise führt zu einem recht effizienten und zügigen File-Zugriff. 
Wird der Zugriffszeiger hinter das letzte File-Element gesetzt, 
also gewissermaßen auf End-of-File, dann wird der Funktions¬ 
rückgabewert der Standard-Funktion EOF auf TRUE gesetzt. Wird 
danach dennoch ein Lesezugriff vorgenommen, dann wird mit der 
Ausgabe der Runtime-Fehlermeldüng 


' AFTER EOF ERROR /' 


das laufende Programm abgebrochen. 


Ähnlich wie beim Lesezugriff auf ein File liegen die Verhält¬ 
nisse beim Schreibzugriff. Mit REHR1TE wird also der Zugriffs- 
zeiger auf den Anfang des für das betreffende File reservierten 
File-Puffers gesetzt. Auch jetzt können mit dem relativ 
einfachen Zugriffsmechanismus über diesen File-Zeiger wie bei 
Pointertypen die File-Elemente zugewiesen werden. Erst wenn der 
Schreibzeiger nach entsprechend vielen HRITEs bzw. PUTs 
außerhalb des ersten Sektors zeigt, wird dieser Sektor in das 
geöffnete File auf die Diskette geschrieben und der obere Sektor 
im Puffer nach unten verschoben, bis auch dieser nach weiteren 
Schreibzugriffen wieder gefüllt ist usw. 

Im Vorgriff auf die noch zu besprechenden Erweiterungen in PROFI 
PASCAL wäre bereits jetzt anzumerken, daß mit einem besonderen 
Kommando dafür gesorgt werden muß, daß nach dem Beenden des 
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Schreibprozesses der letzte Pufferinhalt noch in das File auf 
die Diskette geschrieben wird. Dies geschieht mit der zusätzlich 
zu Standard-Pascal vereinbarten Prozedur CLOSE. Darüber hinaus 
kommt dieser Prozedur eine weitere wichtige Wirkung zu. Sie hat 
dafür zu sorgen, daß der mit RESET oder REUR1TE für ein File 
reservierte File-Puffer freigegeben wird und für weitere 
Zugriffe in andere Files wieder zur Verfügung steht. 

Im Hinblick auf die im Interesse eines effizienten und zügigen 
File-Zugriffs mit 1 KByte recht groß dimensionierten File-Puffer 
werden vom PROFI PASCAL - System nur drei solcher Puffer bereit¬ 
gestellt. Dies bedeutet, daß der gleichzeitige Zugriff nur in 
drei verschiedene Files möglich ist - unabhängig davon, ob es 
Lese- oder Schreibzugriffe sind. Erscheint diese Zahl anfangs 
auch recht klein, so ergeben sich in der Praxis daraus so gut 
wie keine Probleme. Zumindest waren bisher bei mir alle 
anfallenden Schwierigkeiten zu meistern und dies selbst bei 
einem so komplexen Programmablauf wie dem der Kompilation mit 
ihrem umfangreichen File-Handling (Quellfile lesen, Codefile 
generieren, Fixupdatei generieren, ggf. temporäres Quellfile für 
2-Paß-Assemblierung generieren, ggf. Variablendatei für Post- 
Mortem-Dump generieren usw.). 

Falls im Verlaufe eines Programms dennoch einmal durch RESET 
oder REHR1TE ein vierter File-Puffer angefordert werden sollte, 
so wird mit der Runtime-Fehlermeldüng 

'BUF.OV. ERROR /' (Buffer Overflow) 

das laufende Programm beendet. 

Ein interessanter Aspekt im Hinblick auf die File-Puffer ist die 
Möglichkeit, diese mit RESET und GET gezielt mit bestimmten 
Sektoren eines Programmcode-Fi1 es zu laden, so daß sich dann 
dort aus dem laufenden Programm aufrufbare, externe Prozeduren 
oder Funktionen befinden. Von dieser Möglichkeit macht PROFI 
PASCAL für verschiedene Direktkommandos ( ’M‘, G‘, ’P', 'H') 
durch Aufrufen externer Routinen Gebrauch, die in dem File 
LOADDAT zusammengefaßt sind. An anderer Stelle mehr darüber. 
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Ein weiterer Gesichtspunkt — in der einschlägigen Literatur 
nicht eindeutig geklärt - sollte noch erörtert werden. Wird ein 
File mit RESET zum Lesen geöffnet, so kann zu jedem beliebigen 
Zeitpunkt, d.h. unabhängig davon, ob der Lesezeiger auf dem 
ersten File-Element, auf irgendeinem mitten im File oder hinter 
dem letzten auf End-of-File steht, vom Lesezugriff auf den 
Schreibzugriff umgeschaltet werden. Dafür ist einfach nur die 
Zuweisungsrichtung zu ändern und statt 6ET die Prozedur PUT zu 
verwenden bzw. statt READ ist NR1TE zu benutzen. Damit ist es 
einfach, ein File ab jeder beliebigen Position mit neuen Daten 
zu füllen ("UPDATE"). Allerdings ist nach dem erstmaligen 
Umschalten von Lesen auf Schreiben ein Rückschalten auf Lesen 
nicht mehr möglich. Die Informationen, die im ursprünglichen 
File hinter der Umschaltstel1e lagen, gehen bei dieser 
Vorgehensweise natürlich verloren. Die neue File-Länge und die 
EOF-Markierung ergeben sich aus dem Umfang des nach der 
Umschaltung vorgenommenen Schreibzugriffs. 

Wird ein File erneut mit RESET oder REHR1TE zum Lesen oder 
Schreiben geöffnet, ohne daß der frühere Zugriff mit CLOSE 
abgeschlossen wurde, erfolgt mit 

NOT CLO . ERROR/' 

die entsprechende Runtime-Fehlermeldüng bei gleichzeitigem 
Programmabbruch. Dies gilt nicht für das File INPUT , bei dem 
RESET ohnehin eine besondere Wirkung hat. Für das File OUTPUT 
entfällt diese Überlegung generell, da dieses File nicht 
explizit geöffnet wird und somit auch nicht geschlossen zu 
werden braucht. 

Ein Lese- oder Schreibzugriff auf ein File, das noch nicht mit 
RESET oder RENR1TE geöffnet wurde, führt zum vorzeitigen Beenden 
des Programms. Die Ursache wird mit der Runtime-Fehlermeldüng 

'NOT OPEN ERROR/' 

zur Anzeige gebracht. Auch dies gilt nicht für die Files INPUT 
bzw. OUTPUT . 


- 119 - 



PROFI PASCAL 


HR1TE 


Die Prozedur NRITE hat analog zu READ eine Doppelwirkungs zum 
einen dient sie zur Zuweiiung eines neuen File-Elementes 
(Schreiben), zum anderen zum anschließenden Weitersetzen des 
Schreibzeigers auf die nächste Schreibposition, auf die 
Position, an der das nächste File-Element abzulegen ist. 


Syntax: NRITE(FILEVARIABLE, QUELL1STE );' 

FILEVARIABLE steht für den Bezeichner der gerade im Zugriff 
befindlichen File-Variablen. Wenn es sich um das File OUTPUT 
handelt, braucht diese Variable nicht angegeben zu werden. Die 
Syntax lautet dann 

'NRITE(QUELL1STE );' 

QUELLISTE steht für die mindestens aus einem Ausdruck 
(Expression) bestehende, ggf. durch Kommata getrennte, Folge von 
Ausgabegrößen, die eine nach der anderen in das jeweils nächste 
File-Element gefüllt werden. Es ist selbstverständlich, daß 
sämtliche Quel1ausdrücke vom gleichen Typ wie die File-Elemente 
sein müssen. Eine Ausnahme von dieser Regel gibt es nur bei 
Files vom Typ TEX7, zu denen auch das File OUTPUT gehört. In 
solche Files können Quel1-Expressions vom Typ CHAR, BOOLEAN, 
INTEGER und REAL ausgegeben werden. Bei den Quelltypen BOOLEAN, 
INTEGER und REAL wird automatisch mit der Zuweisung in das File 
die Umwandlung aus der internen binären in die entsprechende 
ASCII-Darstel1ung vorgenommen. 


In diesem Zusammenhang sind noch folgende Gesichtspunkte zu 
beachten. Bei der Ausgabe von Integer- oder Real-Größen sowie 
Boolschen Ausdrücken ist - falls nichts näheres vereinbart 
wurde - ein bestimmtes Ausgabeformat vorgesehen. Danach werden 
Boolsche Größen stets ohne führende oder abschließende 
Leerzeichen ausgegeben. 
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Integer-Großen werden - durch den Zusatz HEX - in Hex-Notation 
ohne führende Leerzeichen stets vierstellig mit einem führenden 
'♦'-Zeichen ausgegeben. In Dezimal-Notation werden sie bei 
positiven Werten ohne Vorzeichen und ohne einen entsprechenden 
Platzhalter in Form eines Leerzeichens mit der für ihre 
jeweilige Darstellung erforder1ichen Stellenzahl ausgegebenp 
negative Werte werden mit dem Minuszeichen unmittelbar vor 
der ersten Ziffer dargestellt. Im übrigen erhalten auch Integer- 
GrÖßen keine abschließenden Leerzeichen. 


Real-Größen werden in Floating-Point-Notation, also technisch¬ 
wissenschaftlicher Darstellung (Scientific Notation) mit elf¬ 
stelliger Mantisse und zweistelligem Exponenten ausgegeben. Die 
negativen Vorzeichen werden unmittelbar vor der ersten 
Mantissen- bzw. Exponentenziffer ausgegeben. Für das nicht 
wiedergegebene positive Vorzeichen der Mantisse ist ein Leer¬ 
zeichen als Platzhalter vorgesehen, während beim Exponenten ein 
' + ' vor der ersten Exponentenstelle ausgegeben wird. Ein 
abschließendes Leerzeichen gibt es im übrigen auch bei den Real- 
Größen nicht. 


Besonders zur Erzeugung formatierter Bildschirm- oder Druck¬ 
ausgaben kann bei Anwendung der Write-Prozedur in das File 
OUTPUT für die Quel1ausdrücke eine Ausgabefeldgröße angegeben 
werden. Dieses Feldformat wird, durch ':' getrennt, hinter die 
auszugebende Quellgröße gesetzt, wie z. B. 

'HR ITE(F1 LEV AR 1 AB LE,QUELL AUSDRUCK:FELDFORMAT )/ ' 

Dabei muß die angegebene File-Variable vom Typ TEXT sein} ihre 
Angabe kann im Falle OUTPUT entfallen. Der auszugebende Quell— 
ausdruck wird nun in ein in der Länge durch FELDFORMAT bestimm¬ 
tes Feld rechtsbündig ausgegeben. FELDFORMAT muß ein Ausdruck 
vom Typ INTEGER sein. Ist die angegebene Feldgröße für den 
auszugebenden Quellausdruck zu klein, so wird ein Format 
gewählt, in das der Quel1ausdruck gerade hineinpaßt. 
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Der maximal zulässige Wert für FELDFORMAT ist in Anlehnung an 
die üblicherweise auf 132 Zeichen begrenzte Druckerzei 1enlänge 
und im Hinblick auf einen nicht zu großen Output-Puffer auf eben 
diese 132 Zeichen begrenzt. Wird dieser Wert in einer Write- 
Prozedur überschritten oder ist er kleiner als 0, so ergibt dies 
einen Runtime-Fehler, der mit 

IL.QUANT. ERROR/' (Illegal Quantity) 
angezeigt wird und zum Programmabbruch führt. 


Für die Ausgabe von Real-Größen kann mit einer weiteren, durch 
abgesetzten Formatangabe die auszugebende Stellenzahl 
bestimmt werden, wie beispielsweise 

NRlTE(FlLEVARlAELE f REALAUSDRUCKtFELDFORNAT:STELLENFORNAT );' 

Wie bereits oben erläutert, muß die angegebene File-Variable vom 
Typ TEXT sein; sie kann im Falle von OUTPUT entfallen. 
Hinsichtlich FELDFORMAT gelten die bereits oben erwähnten 
Angaben; damit wird die Feldgröße für die rechtsbündige Ausgabe 
der Real-Größe bestimmt. Mit STELLENFORMAT - wie FELDFORMAT 
ebenfalls vom Typ INTEGER - wird die Anzahl der Nachkommastel1en 
des jetzt in Fix-Point-Notation (normale Zahlendarstellung) 
auszugebenden Zahlenstrings bestimmt. Tritt durch diese Format¬ 
festlegung eine Beschneidung der signifikanten Ziffern auf 
weniger als 11 ein, so wird die letzte Stelle gerundet 
ausgegeben. Im übrigen wird je nach absoluter Größe des Real¬ 
wertes und des angegebenen Stellenformates führend oder 
abschließend die Ziffer '0' im erforder1ichen Maße ausgegeben. 
Die auszugebende Stellenzahl kann sich zwischen 0 und 31 
bewegen. Ein größerer Wert für STELLENFORMAT führt wie bei einem 
zu großen Feldformat zu einem Runtime-Fehler mit der Anzeige 

'IL.QUANT. ERROR/' 

und zum Programmabbruch. 
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Im Gegensatz zum Feldformat können -für da* Stel1enformat auch 
negative Werte angegeben werden. Dies bewirkt, daß die Real- 
Größen in Floating-Point-Notation ausgegeben werden, aber jetzt 
mit einer Gesamtziffernzahl, die sich aus dem Zahlenwert des 
angegebenen Stellenformates ergibt. Als Wertebereich sind 
Angaben zwischen -1 und -11 zugelassen; bei darüber hinaus¬ 
gehenden Werten kommt es ebenfalls mit 

' IL.QUANT. ERROR/' 

zum bereits mehrfach angeführten Runtime-Fehler. Beispiele für 
die diversen Ausgabemöglichkeiten sind im folgenden Abschnitt 
unter HRITELN wiedergegeben. 


Bei einer ununterbrochenen Ausgabe von Integer-Größen in ein 
File vom Typ TEXT ist zu berücksichtigen, daß diese ohne 
zwischengeschobene Ausgabe von Tennzeichen (beispielsweise Leer¬ 
zeichen) zu einem zusammenhängenden, nicht mehr auflösbaren 
Zahlenstring zusammengefügt werden. 


HRITELN 


Bezüglich HRITELN gelten zunächst die gleichen Überlegungen wie 
für HRITE . Doch zusätzlich zu der mit HRITE vorgenommenen 
Ausgabe von Quellausdrücken in das angegebene Zielfile und dem 
damit gekoppelten Weitersetzen des Schreibzeigers erfolgt mit 
HRITELN nach Ausgabe aller aufgeführten Quellgrößen eine 
abschließende Ausgabe des Zeilenendezeichens (Carriage Return “ 
ASCII $0D), d.h. der Sehreibzeiger (beim File OUTPUT ist dies 
auf dem Bildschirm der Cursor und beim Drucker der Druckkopf) 
steht am Anfang der nächsten Zeile. 
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Sei bstverständlich können mit der Prozeduranweisung 
'NRITELN(FILEVARIABLE )/' 

oder vereinfacht für das File OUTPUT 

'NRITELN f ' 

also ohne zusätzliche Angabe einer Quelliste, Leerzeilen, 
ausschließlich aus einem Zeilenendezeichen bestehend, erzeugt 
werden. NRITELN ist durch die mit dieser Prozedur verbundene 
Ausgabe eines Zeilenendezeichens nur in Files vom Typ TEXT 
zulässig. Eine gegenteilige Programmanweisung wird bereits bei 
der Kompilation vom Compiler beanstandet. 


Wird ein File-Zugriff - unabhängig ob mit PUT oder NR1TE bzw. 
NRITELN - in ein File vorgenommen, das nicht mit RENR1TE (oder 
RESET ) geöffnet wurde, so wird die Runtime-Fehlermeldüng 

NOT OPEN ERROR/' 


ausgegeben und die weitere Programmausführung abgebrochen. 


ACHTUNG! 

Es ist jederzeit möglich, in ein nur zum Lesen mit RESET 
geöffnetes File zu schreiben. Dabei wird die interne Steuerung 
auf RENR1TE umgeschaltet und alle in dem File hinter der augen¬ 
blicklichen Position des Zugriffszeigers abgelegten Daten gehen 
verlorenj das File wird ab der augenblicklichen Position neu 
geschrieben. Ist dagegen das fragliche File gegen Löschen bzw. 
überschreiben geschützt, so bleiben die Daten erhalten. 
Allerdings wird der weitere Programmablauf mit der Runtime- 
Fehlermeldüng 

'1L.F1LE OPR . ERROR/' 

abgebrochen. 
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Zum Schluß dieses Themenkreises sollen noch einige Beispiele zur 
Demonstration der verschiedenen Möglichkeiten für den 
formatierten Ausdruck mit der Prozedur NRITE bzw. NRITELN 
wiedergegeben werden. Bei der drucktechnisehen Wiedergabe der 
ausgegebenen Quel1ausdrücke werden Leerzeichen durch 
dargestellt (LAUF sei vom Typ INTEGER ). 


FOR LAUF:=0 TO 9 DO NRITE(LAUF) ; NRITELN / ergibt: 

0123456799 

LAUFs=64; 

HRlTELNf'C',LAUF,'-RECHNER IST NICHT ''0=0'B')f ergibt: 

C64-RECHHER IST NICHT TRUEB 

NRITE LN (' ' tlO'PI,-RANDOH); ergibt: 

_ 3 . 1415926536E+00—7.5213466013E-01 

NRITE LN(P1:20,RANDOM:30); ergibt« 

_ 3 .1415926536E+00 _ 3 . 2213673123E-01 

NRITE LN(PIs134 , 3*5.0s15s5); ergibt« 

3.1416 _ 15.00000 

NR1TELN(10*P1820s0RD(FALSE)-5); ergibt« 

_ 3.1416E+01 

NRITELN(1/3 s9 3 2);NR ITELN<1/6s9s2);NR1TELN(16.039s2 )/ ergibt« 

_ 0.33 

_ 0.67 

_ 16.00 
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Im Anschluß an die vorstehend behandelten Standard-Prozeduren 
wären nun noch die Standard-Funktionen und Verknüpfungs- 
operatoren zu besprechen und auf eventuelle Besonderheiten bei 
ihrer Benutzung in PROFI PASCAL einzugehen. 

Die in Standard-Pascal vordefinierten 

Standardfunktionen 

lassen sich grob in die folgenden drei Gruppen einteileni 

Typwandlungsfunktionen 
Zustandsfunktionen 

Rechenfunktionen/arithmetische Funktionen 


Als erstes wären die genannten Typwandlungsfunktionen zu 
erläutern, die die Umwandlung von Größen des einen Typs in 
Größen des anderen Typs entsprechend der benutzten Funktion 
erlauben. Diese Funktionen dienen dazu, Größen verschiedener 
Datentypen miteinander verarbeiten zu können, sie typverträglich 
zu machen. Diese Funktionen werden - wieder in alphabetischer 
Reihenfolge - im einzelnen vorgestellt: 


CHR 

Diese Funktion gestattet die Umwandlung einer Größe eines 
beliebigen skalaren Argumenttyps (ausgenommen REAL ) in eine 
Größe vom Typ CHAR . 

Syntax: ' CHR(AUSDRUCK )' (Funktionstyps CHAR) 

AUSDRUCK steht für eine beliebige Größe eines skalaren Typs. Die 
Umwandlung der verschiedenen Größen vollzieht sich derart, daß 
die Ordinalzahlen der Argumentgröße und der Ergebnisgröße 
identisch sind, wobei den CHAR-Zeichen der Ordinalwert ihres 
ASCII-Codes zugeordnet ist. 
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Zum Beispiel erhalten Sie mit 

' CHR(65) bzw. ' CHR($41) 

das Zeichen A' und mit 

' CHR(13)' bzw. ' CHR($0D) 

das Zeilenendezeichen (Carriage Return). Bei Anwendung der 
Funktion auf Integer-Ausdrücke können diese natürlich nur bis 
zu einer Größe von 255 umgewandelt werden. Deshalb -führt die 
Anwendung der CHR-Funktion auf Werte > 255 zu einem Runtime- 

Fehler mit Programmabbruch unter Ausgabe der Meldung 

' 1L.QUANT. ERROR/' 

Im PROFI PASCAL - System ist mit der Anwendung dieser Funktion 
auf Integer-Argumente die Reduzierung des Speicherplatzes von 
einer 2-Byte-Größe auf eine 1-Byte-Größe verbunden. 


ORD 

Diese Funktion bewirkt in etwa das Gegenteil von CHR\ mit ihr 
erhält man die Ordinalzahl in Form einer Integer-Größe aus einer 
Argumentgröße eines beliebigen skalaren Typs (ausgenommen REAL). 

Syntax a ' ORD(AUSDRUCK)' (Funktionstyp: 1HTEGER) 

AUSDRUCK steht für eine beliebige Größe eines skalaren Typs. Der 
Funktionsaufruf liefert die jeweilige Ordinalzahl, die sich bei 
anwenderspezifisch definierten skalaren Typen aus der Reihen¬ 
folge der Definition ihrer Werte ergebeni wobei die Numerierung 
stets mit 0 gestartet wird. Bei CHAR-Größen bestimmt der 
zugehörige ASCII-Code den Ordinalwert. 

In PROFI PASCAL bildet sich bei der Funktions - Anwendung auf 
1-Byte-Größen eine 2-Byte-Größe, weil die Ordinal zahlen als 
Integer-Typen einen Speicherplatz von 2 Bytes benötigen. 
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Die zweite Gruppe von Funktionen ist diejenige, welche vor allem 
bestimmte Zustände im System (vornehmlich im I/O-Bereich bzw. im 
Zusammenhang mit I/O - Operationen) ab-fragt und als Funktions¬ 
ergebnis den Wahrheitsgehalt des abgefragten Zustandes ( TRUE 
oder FALSE) liefert. Die Funktionen sind also vom Typ BOOLEAN. 
Im einzelnen stehen standardmäßig folgende Funktionen zur 
Verf ügunga 


EOF 

Damit wird bei lesendem File-Zugriff (GET, READ oder READLH) 
abgefragt, ob bereits das File-Ende (End-of-Fi1e) erreicht ist. 
Ist es erreicht, lautet der Funktionswert TRUE , im anderen Fall 
F ALSE• 

Syntaxc ‘EOF(F1 LEVAR1ABLE )/' (Funktionstyp: BOOLEAN) 

FILEVARIABLE steht für den Bezeichner der File-Variablen, deren 
EOF-Zustand abgefragt werden soll. 

Als Sonderfall ist die EOF-Abfrage des Files INPUT zu 

betrachten s 

EOF(INPUT)' 

oder vereinfacht ohne das hier erforder1iche Argument 

' EOF ‘ 

Da bei einem Homecomputer in der Art des C64 sinnvollerweise die 
Tastatureingabe als das Inputfile betrachtet wird, liegt es 
nahe, als EOF eben dieses Inputfiles die RUN/STOP- Taste (BREAK) 
zu betrachten. Bei betätigter RUN/ S70P-Taste wird der Funktions¬ 
wert von EOF(INPUT) bzw. EOF auf TRUE gesetzt, während er 
andernfalls FALSE liefert. Damit kann in PROFI PASCAL die 
Abfrage der RUN/ S70P-Taste (BREAK) ganz gezielt vorgenommen und 
eine Programmbeeinf1ussung nur an den von Ihnen gewünschten 
Stellen zugelassen werden (siehe als Beispiel hierzu die 
Verwendung im Editorprogramm, das in Abschnitt 8 gelistet ist). 
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EOLN 

Mit dieser Funktion kann nachge-fragt werden, ob der Lesezeiger 
bei einem Zugriff in Files vom Typ TEXT auf einem Zeilenende¬ 
zeichen (Carriage Return ■* ASCII $0D) steht. Ist dies der Fall, 
lautet der Funktionswert TRUE , andernfalls FALSE . 

Syntax: ' EOLN(FILEVARIABLE) ' (Funktionstyp: BOOLEAH) 

FILEVARIABLE steht für den Bezeichner der File-Variablen, die 
bezüglich des Zeilenendezeichens abgefragt werden sollen. Die 
Funktion ist auch auf das File INPUT anwendbar. In diesem Fall 
kann die Angabe der File-Variablen entfallen, und der Funktions¬ 
aufruf besteht lediglich aus EOLN . 


ODD 


Diese Funktion gibt Auskunft über den Divisionsrest nach der 
Division einer Integer-Größe durch 2. Ist der Divisionsrest 1 
(die Integer-Größe ist ungerade), wird der Funktionswert TRUE , 
andernfalls FALSE . 

Syntax: ‘ODD(AUSDRUCK) ' (Funktionstyp« BOOLEAN) 

AUSDRUCK steht für das als Argument für die Funktion zu 
verwendende Expression; dieser Ausdruck muß vom Typ INTEGER 
sein. Die ODD-Funktion kann als schnelles Entscheidungskriterium 
vor allem bei Interval1halbierungen (Arbeiten mit binären 
Strukturen) eingesetzt werden. 
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Die dritte Funktionengruppe umfaßt die der "rechnenden" bzw. 
arithmetisehen Funktionen. Zunächst wären die beiden allgemeinen 
Funktionen 


PRED und SUCC 

zu erwähnen. Mit ihnen läßt sich allgemein der Vorgängerwert 
(Predecessor) bzw. Nachfolgerwert (Successor) des angegebenen 
Arguments bestimmen. 

Syntax: 'PRED(AUSDRUCK) ' (Funktionstyp: AUSDRUCK-TYP) 
'SUCC(AUSDRUCK) ' (Funktianstyp: AUSDRUCK-TYP) 

AUSDRUCK steht für das als Argument einzusetzende Expression. 
Dieser Ausdruck muß der Definition eines skalaren Typs 
(ausgenommen REAL) entsprechen. Der Funktionsrückgabewert ist 
stets vom gleichen Typ wie das Argument. PRED vom kleinsten und 
SUCC vom größten definierten Wert eines skalaren Typs führen aus 
dem definierten Werteumfang heraus und sind unbestimmt. Die 
Anwendung der Funktionen auf diese Grenzen ist zur Vermeidung 
nicht-definierter Werte unzulässig. 


Die restlichen Funktionen sind die arithmetischen Funktionen, 
insbesondere die transzendenten mathematischen Funktionen für 
die Anwendung in technisch-wissenschaft1ichen Programmen. Im 
einzelnen stehen zur Verfügung: 

ABS (bestimmt Absolutwert) 

SQR (erhebt zum Quadrat) 

Syntax: ' ABS(AUSDRUCK) ' (Funtkionstyp: AUSDRUCK-TYP) 

'SQR(AUSDRUCK) ' (Funktionstyp: AUSDRUCK-TYP) 

Diese beiden Funktionen lassen Argumente vom Typ INTEGER oder 
REAL zu. Der Typ des Funktionswertes ist identisch mit dem Typ 
des als AUSDRUCK einzusetzenden Expressions. 
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Die weiteren arithmetischen Funktionen lauten» 

ARCTAN (Umkehrfunktion zur tan-Funktion) 

COS (cos-Funktion) 

EXP (natürliche Exponentialfunktion) 

LN (natürliche Logaritfimus-Funkt i on) 

SIN (sin-Funktion) 

SQRT (Square root 38 Quadratwurzel ) 

TRUNC (Vorkommatei1) 

ROUND (Rundung zur nächsten Ganzzahl) 

Diese Funktionen haben alle die gleiche 

Syntax: ‘Tune(AUSDRUCK)‘ (Funktionstyp: REAL ) 

AUSDRUCK steht für das Expression, auf das die Funktion 
angewandt wird. Diese Argumente können vom Typ INTEGER oder 
REAL sein. Jedoch ist der Funktionswert, wie angegeben, stets 
vom Typ REAL. Damit verhalten sich die Funktionen TRUNC und 
ROUND bei PRQFI PASCAL etwas anders als in Standard-Pascal. Dort 
ist der Ergebnistyp von TRUNC und ROUND ein Integer-Typ. Um 
jedoch diese Funktionen auch uneingeschränkt auf große Zahlen¬ 
werte - außerhalb von -MAXINT..HAXINT - anwenden zu können, ist 
das Ergebnis von TRUNC und ROUND in PROFI PASCAL vom Typ REAL. 
Die Umwandlung kleiner Zahlenwerte ist mit der im Rahmen der 
Spracherweiterungen zu besprechenden Funktionen INT dennoch 
möglich, z.B.: 


' INT(TRUNC(EXP(1 )))' ergibt den Integer-Wert 2 

und 

' INT(ROUND(EXP(1))) ' ergibt den Integer-Wert 3 
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Hinsichtlich der Vorzeichen -für die Funktionawerte TRUNC und 
ROUND wäre zu sagen, daß diese mit dem Vorzeichen der Argument¬ 
werte identisch sind. Werden die Funktionen LN und SQRT au-f 
unzulässige Argumente (negative Werte, 0 bei LN) angewendet, 
wird das laufende Programm abgebrochen und der Runtime-Feh1 er 

' 1L.QUANT. ERROR/' 


angezeigt. 


Damit ist die Besprechung der in Standard-Pascal verfügbaren 
Funktionen abgeschlossen. Bliebe als letztes, noch kurz auf die 
Verknüpfungsoperatoren innerhalb der Ausdrücke (Expressions) 
einzugehen. 

Für diese Verknüpfungen stehen sowohl reservierte Wortsymbole 
als auch Zeichenoymbole zur Verfügung. Gemäß Standard-Pascal 
sind diese 


AMD und OR 

zur logischen Verknüpfung Boolscher Größen. Das Ergebnis ist 
wieder ein Ausdruck vom Typ BOOLEAN . 

HOT 

zur logischen Negation. Das Ergebnis des Ausdrucks ist ebenfalls 
vom Typ BOOLEAN . 

IN 

zum Test auf Mengenzugehörigkeit. Das Ergebnis ist auch hier vom 
Typ BOOLEAN. 

D1V 

zur ganzzahligen Division von Integer-Größen. Das Ergebnis ist 
vom Typ INTEGER . 

MOD 

zur Ermittlung des Teilerrestes von Integer-Größen. Das Ergebnis 
ist vom Typ INTEGER . 
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* und - 

als Vorzeichen und zur Addition bzw. Subtraktion von Integer- 
und/oder Real-Größen, des weiteren zur Vereinigung bzw. 
Differenzbildung von Mengen. Bei der arithmetischen Verknüpfung 
von Integer-Größen ist das Ergebnis ein Integer-Ausdruck, 
während sich sonst ein Real-Ausdruck bildet. Die 
Mengenverknüpfung ist nur mit typverträglichen Mengen möglich 
und liefert wieder eine Menge vom gleichen Typ. 

» 

zur Multiplikation von Integer- und/oder Real-Größen, zur 
Bildung der Schnittmenge. Bei der Multiplikation zweier Integer- 
Größen ergibt sich ein Integer-Ergebnis, während sich sonst ein 
Real-Produkt ergibt. Die Schnittmenge ist vom gleichen Typ wie 
die zu schneidenden Mengen, die typverträglich sein müssen. 

/ 

zur Division von Integer- und/oder Real-Größen. Der Quotient ist 
stets vom Typ REAL . 

Des weiteren kennt Pascal noch eine Anzahl Vergleichsoperatoren, 
die einzeln unten aufgeführt sind. Bei diesen Vergleichen müssen 
die zu vergleichenden Größen typverträglich sein, d.h., daß 
ihnen grundsätzlich die gleiche Typdefinition zugrunde liegen 
muß. Letzteres schließt aber nicht aus, daß zum Beispiel 
Integer-Größen mit Real-Größen verknüpft werden können. Das 
Ergebnis des Vergl eichsexpressions ist ein Ausdruck vom Typ 
BOOLEAN . Die einzelnen Vergleichsoperatoren sinda 


Test auf Gleichheit; 

<> 

Test auf Ungleichheit; 

< 

Test auf kleiner, Test auf echte Teilmenge; 

<- 

Test auf kleiner oder Gleichheit, Test auf Teilmenge; 
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> 

Test auf größer, Test auf echte Obermengej 


>- 

Test auf größer oder Gleichheit, Test auf Obermenge. 


Damit wären alle im "Pascal User Manual and Report" 
standardisierten Sprachelemente hinsichtlich ihrer Benutzung in 
PROFI PASCAL besprochen. Bliebe noch eine Anweisung 
nachzutragen, die weniger ein reserviertes Vereinbarung*- oder 
Anweisungssymbol oder ein Ausführungsbefehl ist, sondern 
vielmehr ein Steuerungskommando an den Compiler darstellt: 


FORUARD 

Mit dieser Compi1er-Direktive, die auch in PROFI PASCAL 
zugelassen und anstelle eines im Programm zu definierenden 
Blockes unmittelbar hinter dem Prozedur- oder Funktionskopf 
anzugeben ist, wird für den Compiler eine Prozedur oder 
Funktion vorab deklariert. So kann in den folgenden Blöcken 
diese vordeklarierte Prozedur bzw. Funktion bereits auf,gerufen 
werden, während ihr eigentlicher Block weiter unten im Programm 
nach der Wiederholung des Prozedur- oder Funktionskopfes 
ausformuliert wird. Dies stellt eine ausgezeichnete Möglichkeit 
dar, bei Rekursionen gegenseitig aufrufbare Prozeduren bzw. 
Funktionen zu definieren (siehe auch das im Abschnitt 8 
aufgelistete Programmbeispiel HILBERT - Kurven). 


Nach der nun abgeschlossenen Erläuterung des Standardsprach- 
umfangs werden im nächsten Abschnitt die in PROFI PASCAL 
aufgenommenen Erweiterungen behandelt, die sich jetzt klarer in 
den in diesem Abschnitt detailliert erläuterten Sprachrahmen 
einordnen lassen. 
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4.1.2 DIE BPRACH-ERWEITERUNGEN 

Die Aufnahme von Sprachenweiterungen ins PROFI PASCAL - System 
geschah unter zwei Aspekten. 


Der eine ist der äußere Rahmen, in den die Pascal-Imp 1 ementation 
einzufügen war, der C64. Seine Speicherkapazität, seine 
Speicherzel1engröße (1 Byte * 8 Bits) und seine Ein- und 
Ausgabefunktionen stecken für ein Sprachsystem wie Pascal von 
vorneherein einen ganz anderen Rahmen ab als die Großrechner, 
auf denen Pascal ursprünglich entwickelt wurde. Dies zwingt auf 
der einen Seite zu gewissen Zugeständnissen, erlaubt aber auf 
der anderen Seite auch die Aufnahme ausgleichender und 
nützlicher Zusätze zum Sprachumfang. 


Der andere Aspekt für die Aufnahme von Erweiterungen war die 
Überlegung, ein komplettes Sprach- und ProgrammierSystem zu 
entwickeln, das auch maschinennahes Programmieren bis hin zu 
zeitkritischen Systemprogrammen erlaubt. Auch die sich im 
Laufe des Anwendungszeitraumes der Programmierspräche Pascal als 
nützlich und "nice-to-have" erwiesenen Zusätze wurden in diese 
Überlegungen einbezogen. 

Beides, die Anpassung an den C64 und die Aufnahme sinnvoller 
Erweiterungen, haben zu dem vorliegenden ProgrammierSystem 
geführt, das hoffentlich, allen Ansprüchen - soweit sie dem 
Rahmen eines Homecomputers angemessen sind - gerecht wird. 
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4.1.2.1 ZUSÄTZLICHE VEREINBARUNSEN, PROZEDUREN UND 
FUNKTIONEN 


Die Behandlung dieser Sprachzusätze soll wieder in der gleichen, 
dem Blockau-fbau folgenden logischen Reihenfolge vorgenommen 
werden, wie dies bereits bei der Besprechung des Standard- 
Sprachumfanges geschah. 


Den Anfang macht der Vereinbarungstei1 mit der 

Proarammkopfvereinbarunq 

und der 

La bel yere i, nbyunq . 


Hierzu nur nochmals der Hinweis, daß in PROFI PASCAL die 
Aufzählung der externen Files einschließlich INPUT und OUTPUT in 
einer Parameter1iste im Programmkopf entfallen kann. Sonstige 
Ergänzungen oder Änderungen wurden zu den beiden Punkten nicht 
vorgenommen. 


Dagegen .wurden bei der 
Kon stant e n ver e i n baru ng 

einige zusätzliche Möglichkeiten vorgesehen. Zum einen wurde die 
Liste der vordefinierten Konstanten mit 

PI als Real-Konstante 3.1415926536E+00 

und 

STKPOI als Zeiger auf den Pascal-Variablen-Stack erweitert. 
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Die Konstante STKP01 ist die 2-Byte-Speicherstel1e des C64, die 
den Zeiger auf die unterste Speicherstel1e (Top-of-Stack) des 
von oben nach unten wachsenden Variablenstacks enthält. über 
diesen Zeiger können in erster Linie beim Einbau oder Aufruf von 
Assemblerroutinen übergabeparameter abgerufen bzw. Funktiona- 
rückgabewerte abgelegt werden. Des weiteren lassen sich 
Konstanten des noch zu besprechenden Typs BYTE vereinbaren. Sie 
werden mit dem Zeichensymbol 

# 

gekennzeichnet. Dadurch wird klargestel1t, daß es sich um einen 
1-Byte-Zahlenwert und nicht um einen 2-Byte-Integer handelt, 
z . B. i 


CYAN = #3/ 


SPRITE _0 = 


Die andere Ergänzung in der Konstantenvereinbarung ist die 
schon erwähnte Möglichkeit der Verwendung einfacher Konstanten- 
Expressions bei ihrer Definition. Im einzelnen sind dabei 
folgende Verknüpfungen und Funktionen zugelassens 


Dl V, MOD, SHL, SHR, 

*, +, - 


für Integer-Konstanten bzw. 
entsprechende Express!ons 


PRED, SUCC, ORD, LOM für alle Konstanten bzw. 

Konstanten-Expressions 


CHR 


für Integer- und Byte-Konstanten 
bzw. entsprechende Expressions 


LBYT, HBYT 


für Integer-Konstanten bzw. 
entsprechende Expressions 


Die hier aufgeführten unbekannten Funktionen werden weiter unten 
er 1äutert. 
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Als nächstes schließt sich die 

T ypvereinbarung 

an, in deren Rahmen zwei weitere vorde-f i ni er te Typen verwendet 
werden können. Der erste wäre 

BYTE = #0 ..#255/. 

Damit wird der ganz allgemein zu verstehende zahlenmäßige Inhalt 
einer 1 Byte großen Speicherzelle des Rechners definiert. Der 
zweite zusätzlich definierte Typ ist 

STRING 

Mit diesem String-Typ können beliebige Zeichenfolgen bis zu der 
üblicherweise als Maximum definierten Druckerzei 1enlänge von 132 
Zeichen deklariert werden. Der Leerstring ist als Konstante in 
der Form *’ ebenfalls zugelassen. String-Konstanten aus bloß 
einem Zeichen bestehend, wie z. B. 'A' oder auch , werden 

als Konstanten vom Typ CHAR behandelt. 

Im übrigen ist bei der Verwendung von String-Größen folgendes zu 
beachten. Der Typ STRING wird intern als Pointer vom Typ 

'RECORD LAENGE:BYTE f ZEICHENC1..LAENGEJ OF CHAR END 

gehandhabt. Dies bedeutet, daß jeder neu angelegte, eingelesene 
oder generierte String auf dem Heap, der Speicherplatzhalde für 
dynamische Variablen, abgelegt wird und jedesmal neuen Speicher¬ 
platz reserviert. Die Speicherp1 atzverwaltung mit den noch zu 
besprechenden Prozeduren HARK und RELEASE ist also gegebenen¬ 
falls im Programm zu berücksichtigen. Dies gilt nicht für im 
Programm bereits enthaltene String-Konstanten 5 sie werden bei 
der Kompilation unmittelbar in den P.ogrammcode eingefügt. Aus 
obiger Definition geht aber aurh hervor, daß die eigentliche 
String-Größe nur der Pointer £*jf die Zeichenkette ist und als 
solcher bei Parameterübergaben und Variablenzuweisungen gehand¬ 
habt wird. Die intern definierten Record-Elemente sind jedoch 
für Sie explizit nicht greifbar. 
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Ein wichtiger Gesichtspunkt ist die Typverträglichkeit zwischen 
einer Größe vom Typ STRING und einer Größe vom Typ 

ARRAYCINDEXJ OF CHAR'. 

Dies bedeutet, daß gegenseitige Zuweisungen, übergaben und 
Vergleiche möglich sind. Dabei gilt, daß String-GrÖßen, die 
länger als das definierte Array sind, abgeschnitten werden. 
String-Größen, die kürzer * als das mit ihnen zu verknüpfende 
Array sind, werden am hinteren Ende mit Leerzeichen aufgefüllt, 
bis sie die Länge des Arrays haben. Bei der Verknüpfung eines 
CHAR-Arrays mit einer String-Größe wird das Zeichen Array in 
eine String-Größe in der Länge des Arrays, die dynamisch auf dem 
Heap abgelegt wird, umgewandelt. Dabei wird vom Compiler 
überwacht, daß die zulässige String-Länge nicht überschritten 
wird. Ein besonderer Vorteil des Typs STRING liegt in der 
Möglichkeit, diese Größen unmittelbar mit READ bzw. READLN aus 
Files, also auch aus INPUT , lesen zu können. Folgende 
Programmsequenzen sind zum Beispiel möglich: 

CONST ZE1LLENG = #80/ {Konstantendeklaration} 

VAR TITLE:ALFAf {Variablendeklaration} 

ZEILE:ARRAYCO..PRED(ZEILLENG)] OF CHARf 
TEHP, 

LINE :STR ING / 

BEGIN {Anweisungsteil} 

READLN(LI NE )/ {Lesen einer String-Eingabe} 

ZEI LE: = LINE f {Zuweisung an Array} 

IF ZEILECOJ IN C'A'..'Z'] THEN 
TEHP:=ZEILE / {Zuweisung an temp . String} 

TIT LE: = TEHP {Zuweisung an ALFA-GrÖde} 

ENDf 

Die Typverträglichkeit zwischen String und einem CHAR-Array 
bedeutet aber auch, daß nicht nur String-Größen mit der Prozedur 
HRITE bzw.WRITELN ausgegeben werden können, sondern auch Größen 
vom Typ eines solchen CHAR-Arrays zugelassen sind. Beispiels¬ 
weise ist 'NRITELN(TIT LE:10)f ‘ in PROFI PASCAL absolut korrekt, 
wenn TITLE als Variable vom Typ ALFA definiert wurde. 
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Im Rahmen der anschließenden 

Variablenvereinbaruna 

sind die in PROFI PASCAL zusätzlich vorde-f i ni erten Variablen 
vorzustellen. Es handelt sich um die beiden unten mit ihrer Typ¬ 
definition wiedergegebenen Variablen: 

HEM t ARRAYC$0000..$FFFFJ OF BYTE 


und 

RAHDOh tREAL . 

Mit der Variablen HEM kann auf den gesamten Speicher des C64 
zugegriffen werden. Dies ist auch der Grund dafür, daß die 
Elemente dieses Arrays als Byte-Typen definiert sind, über diese 
Variable ist also sowohl die Zuweisung an eine beliebige 
Speicherzel1e (entsprechend "POKE") als auch deren Auslesen 
(entsprechend "PEEK") möglich, beispielsweise: 

MEMCf277Jt=L0H('A')f schreibt ein A' in die erste Speicher— 
zelle des Tastaturpuffers und 

ANZAHLs=MEMC$C6J / transferiert die Anzahl der betätigten 
Tasten in die Byte-Variable ANZAHL. 

Die Variable RANDOM liefert bei jeder Zuweisung einen neuen 
zufälligen Wert vom Typ REAL . Diese Werte liegen im Bereich 

0 <= RANDOM < 1 . 

RANDOM ist bestens zur Programmierung zah1entheoretischer 
Probleme in Verbindung mit Zufal 1 szahlenfolgen geeignet-, da die 
Zufallswerte eine außerordent1ich gute Streuung bei einer extrem 
großen Periode haben. Damit solche zahlentheoretisehen 
Untersuchungen gezielt immer mit der gleichen Zufallsfolge 
vorgenommen werden können, läßt sich RANDOM durch Zuweisung 
eines Seeds (Startwerts) mit einer beliebigen Größe 

initialisieren. Es wird danach stets die gleiche, nur vom 
Startwert abhängige Zahlenfolge generiert. 
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Im Anschluß an die Variablendeklaration wären die 

Pr gzg du r V erei nbarung 

und 

Funktionsvereinbaruna 

zu behandeln. Dazu wären - abgesehen von den später noch zu 
besprechenden Strukturierungs- und Compiler-Anweisungen - an 
dieser Stelle keine weiteren Ausführungen zu machen. 

Der nächste Teil im Rahmen eines Programmblockes ist der 

Anweisunastei 1 

mit seinen Statementfolgen. Im Bereich des Anweisungsteiles sind 
zwei Ergänzungen von PROFI PASCAL zu erwähnen. Die eine bezieht 
sich auf das 

#• (Assignment)-Statement. 

Zur Gewährleistung eines einfachen und gezielten Zugriffs auf 
Variablen vom Typ FILE und ARRAY OF CHAR bzw. ARRAY OF BYTE sind 
folgende Zugriffsmechanismen vorgesehene 

Fi 1e-Zuariff 

Mit Zuweisungen in folgender Syntax« 

‘FILEVARIABLE(INDEX)i=E LEMENT / ' 

bzw. 

‘ZlELVARt=FlLEVARlABLE(lNDEX); ' 

kann gezielt auf ein einzelnes genau definierbares Element eines 
Files zugegriffen werden (Random-Zugriff) und zwar entsprechend 
der Zuweisungsrichtung sowohl schreibend als auch lesend. 
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FILEVARIABLE steht für den Bezeichner, der im Vereinbarungstei1 
als Variable vom Typ FILE deklariert wurde. 11 

ELEMENT steht für einen Ausdruck vom Typ der Elemente des 
betreffenden Files. 

ZIELVAR steht für den Bezeichner einer Variablen vom Typ der 
Elemente des betreffenden Files. 

INDEX steht für die Nummer des gewünschten File-Elementes. Die 
Elemente sind im File sequentiell angelegt und das erste erhalt 
die Ordnungsnummer 0. Der Index-Ausdruck muß vom Typ REAL sein, 
so daß auch auf sehr große Files zugegriffen werden kann. Es 
wird stets der ganzzahlige Anteil vom Index-Ausdruck gewählt. 
Negative oder zu große Werte führen zu den Runtime-Feh1erni 

’IL.FILE OPR. ERROR/' bzw. ' AFTER EOF ERROR/' 

Ist der Elementtyp des Files ein Strukturierter Typ, so kann 
auch auf eine einzelne Untervariable zugegriffen werden, wie 
beispielsweisei 

'F1LEVAR1ABLE(5000).ORTt= ‘KOELN'? ' 

falls das File-Element eine Felddefinition ORT vom Typ ALFA 
enthält. In gleicher Art ist beispielsweise zugelassens 

'IF F1 LEV AR 1 AB LE(5000).ORTCOJ ~‘K‘ THEN 

ACHTUNG! 

Diese Art des File-Zugriffs beinhaltet implizit das öffnen und 
Wiederschließen des Files, was beim C64 durch den langsamen 
Datentransfer von und zur Floppy eine merkliche Zeit 
beansprucht. Auch muß dafür Sorge getragen werden, daß bei einem 
solchen Zuweisungsmechanismus einer der drei File-Puffer des 
PROFI PASCAL - Systems verfügbar sein muß. Das angesprochene 
File muß in dem als Arbeitslaufwerk (siehe Prozedur ‘SETDRV‘) 
definierten Laufwerk greifbar sein. 
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Array-Zuqr1ff 

Neben der Zuweisung kompletter Arrayi oder einzelner Array- 
Elemente kann in PROFI PASCAL auch auf Teilbereiche von Arrays 
(sogenannte Slices) zugegriffen werden. Dies ist vor allem bei 
der Arbeit mit CHAR-Arrays und String-Größen sehr praktisch. 

Die Syntax ist dabei wie folgte 

' ARRAYVAROINDEXJ : = AUSDRUCK; ' 


und 


' ZlELVARt = ARRAYVAR[>lNDEXJ f ' 


Im ersten Fall wird die mit AUSDRUCK bezeichnete Größe in das 
mit ARRAYVAR bezeichnete Array ab Position INDEX 
(einschließlich) abgelegt. Dabei kommt dem untersten Array- 
Element die Ordnungszahl 0 zu. INDEX muß vom Typ INTEGER sein, 
während die Array-Variablen vom Typ 


ARRAY OF CHAR' 


bz w. 


ARRAY OF BYTE' 


sein müssen. 


ACHTUNG! 

Bei diesen Zuweisungen wird die Größe AUSDRUCK in ihrer gesamten 
Länge über den angegebenen Array-Bereich gelegt und zwar 
unabhängig davon, ob dieser Bereich passend ist oder nicht. 
Unter Umständen werden unmittelbar benachbarte Variablen 
übersehrieben! Diese Zuweisungstechnik sollte also nur bei 
überschaubaren Verhältnissen eingesetzt werden. So wird 
beispielsweise mit 


TJTLE04J s = 1234f ' 


dem Array TITLE in die Position 4 und 5 die binäre Kodierung des 
Integer-Wertes 1234 abgelegt. 
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Dagegen kommt es bei 

•T1TLEC>4]t=TlTLEf ' 

zu einer "gefährlichen" Bereichsüberschreitung durch das 
Abbilden der kompletten Variablen TITLE auf den Variablenbereich 
ab Position 4 einschließlich und darüber. 

Bei der umgekehrten Zuweisung 

'ZlELVARt = ARRAYVARC>lNDE)(l ; ' 

wird die Zielvariable in ihrer kompletten Größe mit den Array- 
Elementen von ARRAYVAR ab Position INDEX (einschließlich) in der 
erfOrder1ichen Menge belegt. Gegebenenfalls werden fehlende 
Elemente aus dem an ARRAYVAR anschließenden Variablenspeieher— 
bereich übernommen. 

Obwohl mit den hier vorgestellten Konstrukten das Pascal-Konzept 
verlassen wird, bieten sie dennoch bei gewissenhaftem Einsatz 
eine einfache Möglichkeit, Elemente unterschiedlieher Typen und 
Größen vor allem bei der Systemprogrammierung miteinander 
verarbeiten zu können. Sollte sich aber ein Problem pascal¬ 
gerecht lösen lassen, so sollten Sie von der Anwendung der hier 
vorgestellten "wilden" Zuweisung Abstand nehmen. 


Die zweite Änderung im Anweisungsteil erfolgte beim 

CASE-Statement. 

das um einen ELSE-Zweig erweitert wurde. Die Syntax des CASE- 
Statements lautet nuni 

CASE ... OF ... ELSE ... END 

Dies bedeutet, daß in den Fällen, in denen für bestimmte Labels 
im CASE-Statement kein Auswahlzweig vorgesehen ist, die unter 
ELSE zusammengefaßten Anweisungen ausgeführt werden. 
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Dieser ELSE-Zweig kann natürlich eraatzlos gestrichen werden, 
falls keine Sonderbehandlung der nicht berücksichtigten 
Auswahlfälle vorgesehen ist- Dann liegt das CASE-Statement in 
der uroprünglichen Form vor und alle nicht berücksichtigten 
Labels führen direkt zu der unmittelbar auf das CASE-Statement 
folgenden Anweisung. Zum Beispiel führen in folgender Programm¬ 
sequenz 


CASE ZEICHEN OF 
‘A‘:EINS? 

* B ' tZHEl? 

' C'sBEGlH EINS?ZUEI END? 

* D':DREI 

ELSE BEGIN EINS?ZUEI?DREI END 
END? 

die Fälle, in denen ZEICHEN keinen der aufgeführten Werte 
'A'- - 'D' enthält, zur ELSE-Folge a BEGIN EINS?ZUEI?DREI END'. 


Dagegen verhält es sich in der Sequenz 

CASE ZEICHEN OF 
A ' :EINS? 

*B ' sZUEl? 

' C'sBEGIN EINS?ZUEI END? 

'D' -.DREI 
END? 

so, daß alle nicht aufgeführten Fälle hinter dem CASE-Statement 
mit der Programmausführung fortfahren. 


ACHTUNG! 

Vor ELSE darf wie im IF-THEN-ELSE-Statement nie ein Semikolon 
< ' | ') stehen. Der Compiler generiert sonst wegen der bestehenden 
Programmunsicherheit eine Fehlermeldung. 
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Standard-Prozeduren 


Neben den eigentlichen Statements können in Pascal, wie bereits 
im letzten Abschnitt erläutert, durch Aufruf eines Namens die 
darunter vereinbarten Anweisungsfolgen ausgeführt werden. Die in 
diesem Zusammenhang bereits beschriebenen, standardmäßig 
vordefinierten Prozeduren und Funktionen sind in PROFI PASCAL um 
eine beachtliche Anzahl erweitert worden. Die Liste dieser 
Prozeduren wurde um die folgenden ergänzt# 


ALLOCATE 

Damit kann im Gegensatz zu NEU einer Pointer-Variablen ein 
Speicherplatz voll unter der Anwenderkontrol1e zugewiesen 
werden. 

Syntax: ' ALLOCATE(POINTERVARIAELE,AUSDRUCK );' 

POINTERVARIABLE steht für den Bezeichner, der im Vereinbarunga¬ 
teil als Variable vom Typ POINTER deklariert wurde. Der Zugriff 
auf diese Variable geschieht mit POINTERVARIABLE *. 


AUSDRUCK steht für das die Pointer—Adresse bestimmende 
Expression. Dieser Ausdruck muß vom Typ INTEGER sein. Sie sind 
somit in der Lage, Ihre dynamischen Variablen nicht nur unter 
der Kontrolle von Pascal mit NEU auf dem Heap ablegen zu lassen, 
sondern sie an eine beliebige Spei eherstel1e im Rechner zu 
plazieren. So können z.B. rechnerinterne 2-Byte-Adreßpointer als 
fINTEGER definiert und recht einfach im Pascal-Programm gehand- 
habt werden. Doch auch größere Strukturierte Variablen lassen 
sich so in bestimmte Speicherbereiche legen. 
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Beispielsweise erlauben die folgende Vereinbarung und Anweisung! 


TYPE 

ZEILE 

= ARRAYCO..393 

0F 

BYTE; 


SCRN 

= ARRAYCO..24] 

0F 

ZEILE; 

VAR 

I 

:INTEGER; 




TEMP 

-.ZEILE; 




BILDRAM:?SCRN; 

BEGIN 

ALLOCATE(BILDRAM , $400);TEMP: s BILDRAM * C24]; 

FOR lt*0 JO 23 DO BILDRAMtCSUCC(I)Ji=BILDRAM?C1J; 
BILDRAMrE0J:=TEMP 
END; 


ein kontinuierliches Rollen des Bildschirms von oben nach unten 
unter Pascal-Programmkontrol1e. Durch die darin enthaltene 
Prozedur ALLOCATE(BILDRAM f $400) wird die Pointer-Variable 
BILDRAM auf den Bi 1dschirm-Wiederholspei eher des C64 in der 
Adresse $400 « 1024 gesetzt. Für den Test des obigen Beispiels 
muß jedoch beachtet werden, daß im C64 auch das Farb-RAM in 
ähnlicher Weise wie der Bildschirm bedient werden muß. 


ACHTUNG! 

Bei der Anwendung dieser Prozedur erfolgt keine Kontrolle, ob 
die angegebene Adresse auch ohne Folgen für den Programmcode 
oder andere Variablen zur freien Benutzung zur Verfügung steht. 
Hier ist schon eine genaue Kenntnis der Speicherplatzauftei1ung 
notwendig. 


CLOSE 

Dies ist die bereits im Abschnitt über den Standard-Sprachumfang 
erwähnte Prozedur zum Schließen von geöffneten Files. 

Syntax: ' CLOSE(FILE VARIABLE); ' 

FILEVARIABLE steht für den Bezeichner, der im Vereinbarungstei1 
als Variable vom Typ FILE deklariert wurde. 
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Mit dieser Prozedur wird bei einem Schreibzugriff 
Pu-f f erinhal t in das noch geöffnete File geschrieben 
anschließend geschlossen. Im übrigen werden die für 
Zugriff belegten File-Puffer wieder freigegeben. Ein 
ein nicht geöffnetes File erzeugt den Runtime-Feh1 er 


der letzte 
und dieses 
den File- 
CLOSE auf 


'NOT OPEN ERROR/' 


und führt zum Programmabbruch. 


ACHTUNG! 

Die CLOSE-Prozedur bei einem zum Schreiben geöffneten File 
sollte auf keinen Fall versäumt werden, da sonst die zuletzt 
geschriebenen Daten ver1orengehen. Sie wurden zwar in den File- 
Puffer geschrieben aber noch nicht endgültig in das betreffende 
File. Dies vollzieht sich erst bei Puffer-über1 auf bzw. nach der 
letzten Zuweisung erst durch CLOSE . 


CLRTRAP 

Diese ohne Parameter zu verwendende Prozedur löscht die Runtime- 
Fehlerfalle für Ein-/Ausgabefeh1 er (I/O-Errors). Das heißt, daß 
nach Aufruf dieser Prozedur im Falle des Auftretens eines I/O- 
Fehlers, die an anderer Stelle näher erläutert werden, weder 
eine Klartext-Fehlerausgabe erscheint, noch das laufende 
Programm abgebrochen wird. Durch Abfrage der weiter unten 
erläuterten Funktion IOERROR obliegt es Ihnen, bei gelöschter 
Fehlerfalle ( CLRTRAP ) nach einer Ein-/Ausgabeoperation das 
Auftreten eines eventuellen Fehlers abzutesten und gegebenen¬ 
falls entsprechende Anweisungen zu programmieren. Das Wieder¬ 
einschalten der Runtime-Fehlerfalle für I/O-Fehler geschieht mit 
SETTRAP. 
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COMT1HUE 

Mit dieser Prozedur sind Sie in der Lage, ein ganz neues Pascal- 
Programm aus dem laufenden heraus aufzurufen und zu starten. 

Syntax s ' CONT1HUE(F1 LENAME,DR1VE_NR ); ' 

Das neue Programm muß als Programmcodefi1e unter dem angeführten 
Bezeichner (FILENAME) auf der Diskette im angegebenen Laufwerk 
(DRIVE_NR) zugänglich sein. Die Prozedur schließt den Ladeprozeß 
ein. Dafür wird eine Hilfsroutine in dem File LGADDAT 
erforder1 ich, das im Systemlaufwerk, d.h. Drive 0, verfügbar 
sein muß. Sollte das aufzurufende Programm oder das File LOADDAT 
nicht verfügbar sein, so erfolgt eine entsprechende Runtime- 
Fehlermeldüng mit Programmabbruch. Das nachzuladende Programm 
wird in dem Speicherbereich abgelegt, für den es auch kompiliert 
wurde. Ein Rücksprung in das ursprüngliche Programm ist nicht 
Bestandteil dieser Prozedur. Dies ermöglicht die folgende 
Prozedur 


EXECUTE 

Diese Prozedur gestattet ähnlich wie CONTINUE den Aufruf eines 
neuen Programms, diesmal jedoch als Unterprogramm zum laufenden 
Programm. 

Syntax: ' EXECUTE(F1 LENAME,DRIVE_NR );' 

Die Prozedur schließt das Nachladen des Programms ein, so daß 
für die Ausführung dieser Prozedur die gleichen Überlegungen 
gelten, wie sie unter CONTINUE angegeben wurden. Dies sind die 
Verfügbarkeit des Programmcodes unter dem angeführten FILENAMEn 
auf der angegebenen Diskette (DRIVE_NR) und die Verfügbarkeit 
der Hilfsroutine aus dem File LOADDAT im Drive 0. Die nachzu¬ 
ladende Pragrammroutine wird in den Speicherbereich gelegt, für 
den sie auch kompiliert wurde, und benutzt den ihr bei der 
Kompilation zugewiesenen Variab1en-Stackbereich. 
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Dieser Speicherplatz darf nicht mit dem Speicherbereich des 
aktuellen Programms kollidieren, da nach Ausführung der 
Programmroutine an die aufrufende Programmstel1e im ursprüng¬ 
lichen Programm zurückgesprungen wird und dort das weitere 
Programm ausgeführt werden soll. Dies zwingt Sie vor der 
programmtechnisehen Verwendung der EXECUTE-Prozedur zur präzisen 
Spei eherauftei1ung und -Verwaltung. Andererseits können Sie aber 
auch bei identischer Variab 1envereinbarung und übereinstimmender 
Stackdefinition im aufgerufenen Programm mit den Variablen des 
Hauptprogramms operieren. 


HEX 


Mit diesem Prozeduraufruf kann der Ausgabemodus für Integer- und 
Byte-Größen auf Hex-Darstel1ung umgeschaltet werden. 

Syntax: 'HR1TE(F1 LEV AR 1 AB LE f . .. HEX(AUSDRUCK)...);' bzw. 

' HR1TELN(FILEVARIABLE, . ..HEX(AUSDRUCK) 

Die hexadezimale Schreibweise ist wie die dezimale eine ASCII- 
Darstellung der intern binär codierten Werte. Deshalb ist sie 
nur in Files vom Typ TEXT sinnvoll und zugelassen, so daß 
FILEVARIABLE für eine Variable diesen Typs steht. Wie bereits 
bei der Besprechung von HRITE und HRITELN erwähnt, kann die 
Angabe der File-Variablen entfallen, wenn es sich um das File 
INPUT handelt. 


AUSDRUCK steht für 
oder BYTE. Durch 
anstelle der sonst 
mit einem führenden 


ein beliebiges Expression vom Typ INTEGER 
die HEX-Prozedur wird dieses Expression 
üblichen Dezimal darstel1ung in Hex-Notation 
'♦'-Zeichen ausgegeben. 
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1HDVC 

Diese Prozedur schaltet das aktive Eingabegerät um. 

Syntaxt ' 1NDVC(AUSDRUCK1 , AUSDRUCK2 )/' 

AUSDRUCK 1 steht für die gewünschte Primäradresse (Geräte¬ 
adresse) , während AUSDRUCK2 die Sekundäradresse innerhalb des 
angesprochenen Gerätes (Device) angibt. Beide müssen vom Typ 
INTEGER sein, wobei für die Primäradresse nur der Wertebereich 
0..255 zugelassen ist. Eine Geräteadresse außerhalb dieses 
Bereiches führt mit 

'IL.QUANT. ERROR/' 

zu einem Runtime-Error und zum vorzeitigen Programmabbruch. 


Diese Prozedur bestimmt also das Gerät, aus dem die Variable 
INPUT über READ bzw. READLN versorgt wird. Nach der 
Initialisierung von PROFI PASCAL sind Primär- und Sekundär¬ 
adresse 0, womit die Eingabe für INPUT über "GETLINE" von der 
Tastatur erfolgt. Nach einem Aufruf von INDVC bleibt das mit 
AUSDRUCK1 definierte Eingabegerät so lange angesprochen, bis mit 
einem erneuten Prozeduraufruf auf ein anderes Gerät umgeschaltet 
oder auf das frühere zurückgeschaltet wird. Bei einem Runtime- 
Fehler wird automatisch auf das Eingabegerät 0 (Tastatur) 
geschaltet. 


ACHTUNG! 

Die im C64 unter der Primäradresse 2 nur mangelhaft 
Ei n-/Ausgabeschnittstel1ea "RS 232 bzw. V 24" ist 
nicht verfügbar. Falls Interesse besteht, können Sie 
relativ geringem Aufwand eine eigene, korrekt 
Anpassung mit den Möglichkeiten von PROFI PASCAL 
INDVC spricht nur die am seriellen Ein-/Ausgabebus 
angeschlossenen Geräte an. 


eingebaute 
über INDVC 
jedoch mit 
arbeitende 
vornehmen. 

(IEE-Bus) 
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KILL 

Mit KILL werden nicht gegen Löschen/überschreiben geschützte 
Files au-f der Diskette durch Entfernen aus dem Directory 
gelöscht. 

Syntax: KILL(FILEVARIABLE )/' 

FILEVARIABLE steht für den Bezeichner, der im Vereinbarungstei1 
als Variable vom Typ FILE deklariert wurde. Das damit 
angesprochene File wird auf dem aktuellen Arbeitslaufwerk 
erwartet. Wird das zu löschende File nicht gefunden, kommt es 
mit einer entsprechenden Meldung zu einem Runtime-Fehler 
einschließlich Programmabbruches. Das Arbeitslaufwerk kann 
erforder1ichenfal1s mit der noch zu besprechenden Prozedur 
SETDRV definiert werden. 

Wird mit KILL eine File-Variable angesprochen, die gegen Löschen 
bzw. überschreiben geschützt ist, so wird die Ausführung der 
KILL-Prozedur unterbunden. Statt dessen wird die Runtime- 
Fehlermeldüng 

1L.F1LE OPR. ERROR/' 

generiert und die weitere Programmausführung abgebrochen. 
Derartig gesicherte Files können nur über das Uti1ity-Programm 
auf der Diskette gelöscht werden; ein Löschen im Rahmen des 
Anwenderprogramms ist aus Sicherheitsgründen nicht zugelassen. 
Befindet sich das angegebene File nicht im Arbeitslaufwerk, so 
wird ebenfalls eine entsprechende Fehlermeldung ausgegeben und 
das Programm beendet. 

LOCK 

Diese Prozedur kann zunächst wie CLOSE benutzt werden, d.h. sie 
schließt ein vorher geöffnetes File wieder. Darüber hinaus wird 
das File jedoch ab sofort gegen Löschen bzw. überschreiben 
gesichert. 

Syntax« ' LOCK(Fl LE VARIABLE );' 
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FILEVARIABLE steht -für den Bezeichner, der im Vereinbarungstei1 
als Variable vom Typ FILE deklariert wurde. Der wiederholte 
Aufruf der LQCK-Prozedur für dasselbe File (nachdem es wieder 
geöffnet wurde) hat außer der schließenden Wirkung sonst keinen 
Einfluß mehr. Ein einmal mit LOCK gesichertes File kann im 
Rahmen des Anwenderprogramms nicht mehr entsichert werden. 
Hierzu muß ganz bewußt auf das Uti1ity-Programm zurückgegriffen 
werden. Jeder Versuch, im Rahmen eines Programms ein derart 
gesichertes File zu löschen und zu überschreiben, führt unter 
Ausgabe der Runtime-Feh1 ermeldüng 

1L.F1LE OPR. ERROR'' 


zum Abbruch des laufenden Programms. 

LOAD 


LOAD gestattet das explizite Nachladen einer externen Pascal- 
Progr ammrout i ne in den Speicher des Rechners. 

Syntax: 'LOAD<F1 LENAME,DRIVE_NR );' 


Im Gegensatz zu C0NT1NUE und EXECUTE , die ansonsten die gleiche 
Syntax haben, wird mit der LOAD-Prozedur nur der Ladeprozeß 
einer externen Programmroutine ausgeführt. Die zu ladende 
Routine muß als Programmcodefi1e unter dem angeführten 
Bezeichner (FILENAME) im angegebenen Laufwerk (DRIVE_NR) 
verfügbar sein. Der Ladevorgang selbst läuft über eine Hilfs¬ 
routine im File LÜADDAT, so daß dieses im Systemlaufwerk 0 
vorhanden sein muß. Ist dies nicht der Fall, kann die LOAD- 
Prozedur nicht korrekt ausgeführt werden, und das Programm wird 
mit einer entsprechenden Runtime-Fehlermeldüng vorzeitig 
beendet. 


Der Aufruf der geladenen Routine ist nicht Bestandteil der 
Prozedur. Die Routine muß im Programm unter demselben Namen, 
unter dem sie auf der Diskette abgespeiehert wurde, als externes 
Programm, externe Prozedur oder externe Funktion unter 
Verwendung der dafür vorgesehenen, reservierten Wortsymbole 
XTRNPRGH, XTRNPROC und XTRNFUNC deklariert worden sein. 
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Die LOAD-Prozedur - sie braucht nur einmal für eine bestimmte 
Routine aufgerufen zu werden - lädt den Programmcode an die 
externe Stelle, für die die Routine kompiliert wurde. Nach 
erfolgreiehern Ladevorgang wird dem laufenden Programm die 
Speicheradresse mitgeteilt, so daß dieses nun in der Lage ist, 
die vereinbarte externe Routine unter ihrem Namen über die jetzt 
mit dem Namen assoziierte Ansprungadresse aufzurufen. 

Der Unterschied zwischen CONTINUE und EXECUTE auf der einen und 
LOAD auf der anderen Seite besteht darin, daß die in Verbindung 
mit C0NT1NUE und EXECUTE aufgerufenen Programmroutinen 

a> immer eigenständige Pascal-Programme sind und 
b) bei jedem Aufruf von der Diskette nachgeladen werden, 
während mit LOAD 

a) sowohl eigenständige externe Pascal-Programme als auch 
einfache externe Prozeduren und Funktionen geladen werden 
und 

b) dies nur ein einziges Mal erforderlich ist, weil bereits 
dadurch das Pascal-System die für den Aufruf per Namen 
erforder1iche Ansprungadresse erfährt. 

Solange die geladene Routine im Speicher verfügbar ist, kann sie 
mit ihrem im Vereinbarungstei1 des Programms deklarierten Namen 
wie eine normale interne Routine aufgerufen und ausgeführt 
werden. 

ACHTUNG! 

Bei der Verwendung von LOAD erfolgt keine Kontrolle darüber, ob 
der für die zu ladende Routine vorgesehene Speicherplatz für 
diesen Zweck auch frei ist. Sie müssen bei der Erstellung 
derartiger Programme gewissenhaft eine präzise Speicherplatz¬ 
aufteilung und -Verwaltung vornehmen. Der Gewinn dafür ist 
jedoch eine große Flexibilität bei der Entwicklung komplexer und 
extrem umfangreieher Programme, die nur so auf einem Home¬ 
computer realisiert werden können. 

Ein die verschiedenen Fälle abdeckendes Beispiel ist im 
Abschnitt 4.1.2.2 vorgestellt. 
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HARK 

Die Prozedur MARK dient zusammen mit RELEASE zur Steuerung der 
Speicherplatzverwaltung auf dem Heap , der Speicherplatzhalde für 
dynamische Variablen. 

Syntaxs ' MARK(POINTERVAR1ABLE );' 

POINTERVARIABLE steht für den Bezeichner einer Pointer-Variablen 
vom Typ * INTEGER . Sie übernimmt beim Prozeduraufruf den aktiven 
Heap-Pointer. Dies ist der Zeiger auf die oberste Position der 
von unten nach oben dem Variablenstack entgegenwachsenden Halde. 
Die im Anschluß an die Zwischenspeicherung des Haldenzeigers mit 
HEM vorgenommenen Neuzuteilungen von Speicherplatz für 
dynamische Variablen lassen, genau wie das Lesen neuer Eingabe- 
strings, die Halde weiter anwachsen. Tritt nun im Zuge des 
Programmablaufs eine eindeutig definierbare Situation ein (u.U. 
muß eine solche programmtechnisch geschaffen werden), in der der 
zwischenzeitlich belegte Speicherplatz für dynamische Variablen 
und die eingelesenen Strings nicht mehr erforderlich sind (durch 
Umspeichern und/oder Verarbeiten), kann mit der RELEASE-Prozedur 
der Haldenzeiger auf den in POINTERVARIABLE gespeicherten Wert 
zurückgesetzt werden. Der zunächst vergebene Speicherplatz steht 
damit für eine erneute Belegung zur Verfügung. Im Zusammenhang 
mit der Besprechung der Prozedur RELEASE wird ein kleines 
Beispiel für diesen Sachverhalt vargestellt. 


NAME 

Mit dieser Prozedur können den in einem Programm vereinbarten 
File-Variablen anstelle des deklarierten formalen Namens 
aktuelle Bezeichner zugewiesen werden. 

Syntax: NAME(FI LEVAR 1ABLE,AUSDRUCK );' 

FILEVARIABLE steht für den Bezeichner, der im Vereinbarungstei1 
als Variable vom Typ FILE deklariert wurde. 
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Solange keine Zuweisung eines aktuellen File-Namens mit NAME 
vorgenommen wurde, wird die File-Variable unter ihrem normalen 
Bezeichner, d.h. unter dem in der Variablenvereinbarung 
deklarierten Bezeichner, auf der Diskette verwaltet. Nach der 
Zuweisung des Expressions AUSDRUCK, das vom Typ ALFA oder dem 
damit typverträglichen STRING sein muß, wird die File-Variable 
ab sofort nur noch unter dem zugewiesenen Namen verwaltet. Ein 
kleines Beispiel möge dies erläutern: 


VAR SOURCE:TEXT? 
TITLE sALFA; 


{Dek1aration der formalen } 
{File-Variablen SOURCE, } 


RESET(SOURCE);READ(SOURCE);CLOSE(SOURCE ); 

{Zugriff auf ein File mit Namen SOURCE,} 


NAME(SOURCE, QUELLE); 


RENR1TE(SOURCE); 

NRITE LN(SOURCE, '1.Zeile ' ); 
CLOSE(SOURCE); 


NAME(SOURCE,TITLE) 


{ZuNeisung des aktuellen } 
{Namens QUELLE an die for- } 
{male Variable SOURCE, } 
{Zugriff in ein File mit } 
{dem nun aktuellen Namen } 
{QUELLE anstelle des forma-} 
{len Bezeichners SOURCE, } 

{Zuweisung des in TITLE } 
{enthaltenen Namens als } 
{aktuellen File-Namen usw.,} 


- 156 - 



PRÜF I PASCAL 


OUTDVC 

Analog zur Prozedur INDVC kann mit OUTDVC das aktive 

Ausgabegerät umgeschaltet werden. 

Syntax b ' OUTDVC(AUSDRUCK! , AUSDRUCK2 );' 

AUSDRUCK1 steht -für die gewünschte Pr i märadresse (Geräte¬ 
adresse) , während AUSDRUCK2 die Sekundäradresse innerhalb des 
angesprochenen Gerätes (Device) angibt. Beide müssen vom Typ 
INTEGER sein, wobei für die Primäradresse nur der Wertebereich 
0..255 zugelassen ist. Eine Geräteadresse außerhalb dieses 
Bereiches führt mit 

1L.QUANT. ERROR/' 

zu einem Runetime-Error und zum vorzeitigen Programmabbruch. 


Diese Prozedur bestimmt also das Gerät, in das gewissermaßen als 
Variable OUTPUT mit NR1TE bzw. NRITELN hineingeschrieben wird. 
Nach der Initialisierung von PRGFI PASCAL sind Primär— und 
Sekundäradresse auf 0 gesetzt, womit die Ausgabe an OUTPUT auf 
den Bildschirm gelenkt wird. Nach einem Aufruf von OUTDVC bleibt 
das mit AUSDRUCK1 definierte Ausgabegerät (beispielsweise mit 4 
der Drucker) so lange angesprochen, bis mit einem erneuten 
Prozeduraufruf auf ein anderes Gerät umgeschaltet oder auf das 
frühere zurückgeschaltet wird. Bei Auftreten eines Runtime- 
Fehlers wird automatisch das Ausgabegerät mit 0 definiert. 


ACHTUNG! 

Die im C64 unter der Primäradresse 2 nur mangelhaft eingebaute 
Ein-/Ausgabeschnittstel1 es "RS 232 bzw. V 24" ist über INDVC 
nicht verfügbar. Falls Interesse daran besteht, können Sie 
jedoch mit relativ geringem Aufwand eine eigene, korrekt 
arbeitende Anpassung mit den Möglichkeiten von PROFI PASCAL 
vornehmen. INDVC spricht nur die am seriellen Ein-/Ausgabebu* 
(IEE-Bus) angeschlossenen Geräte an. 
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RELEASE 

Diese Prozedur stellt den Gegenpart zur bereits besprochenen 
Prozedur MARK dar. Mit ihr wird der Haidenapeicherplatz wieder 
auf das Maß zurückgesetzt, wie es zu einem früheren Zeitpunkt 
Vorgelegen hat und mit MARK festgehalten wurde. Sei bstverstünd¬ 
lich können mit MARK verschiedene Zwischenstadien festgehalten 
und diese mit RELEASE ebenso etappenweise wieder freigegeben 
werden. 

Syntax: ' RELEASE(POINTERVARIABLE );' 

POINTERVARIABLE steht für den Bezeichner einer Pointer-Variab 1en 
vom Typ fINTEGER. Sie ist die Variable, die den zwischen¬ 
gespeicherten Haldenzeiger <Heap-Pointer) enthält. Auf deren 
Wert wird der aktuelle Haldenzeiger zurückgesetzt. Wie bereits 
bei der Besprechung von MARK erwähnt, soll ein kleines Beispiel 
die Verwendung von MARK und RELEASE demonstriereni 

VAR HEAP1 f HEAP2 f HEAP3:TINTEGERf {Deklaration von 3 Pointer-} 
INFOtALFA ; {Variablen vom Typ INTEGER } 

LINE sST RING; 


MARK(HEAPI)f {Start wer t des Halden- } 

. {zeigers nach HEAP1 } 

MARK(HEAP2 )/ {aktueller Haldenzeiger > 

{nach HEAP2 J 

RE ADLN(LINE ); {Lesen eines Strings mit } 

INFOt-LINE} {Ablegen auf der Halde und } 

. {Zuweisung an INFO } 

RELEASE(HEAP2)f {Rücksetzen des Halden- } 

. {zeigers auf den Hert HEAP2J 

MARK(HEAP3) •, {Einfrieren des aktuellen } 

. {Haldenzeigers in HE AP 3 } 

BAU_BAUM ; {Aufruf einer Routine mit } 

PRINT_BAUM ; {dyn. Variab 1enbenutzung } 

RELEASE(HEAP3); {Rücksetzen auf Hert vor } 

. {Prozedur auf ruf } 

RELEASEfHEAPl ); {Freigeben der ges. Halde } 

US N. 
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SEEK 

Eine mit RESET und REHRITE verwandte Prozedur zum öffnen von 
Files. Der Unterschied zu den beiden liegt in der Positionierung 
des Zugriffszeigers, der mit SEEK gezielt auf ein bestimmtes 
Element gesetzt werden kann. 

Syntax: ' SEEK(FILEVARIABLE,AUSDRUCK );' 

FILEVARIABLE steht für den Bezeichner, der im Vereinbarungstei1 
als Variable vom Typ FILE deklariert wurde. AUSDRUCK ist das 
Expression, mit dem die Position des Fi 1e-Zugriffszeigers 
bestimmt wird. Wegen der u.U. recht großen Zahl an Elementen in 
einem File (z.B. TEXT), muß AUSDRUCK vom Typ REAL sein. Es wird 
stets der ganzzahlige Anteil des REAL-Expressions für die 
Positionierung des Zugriffszeigers gewählt. Negative Werte 
führen mit der Meldung 

1L.QUANT. ERROR/‘ 

zu einem Runtime-Fehler mit Programmabbruch, während Werte, die 
oberhalb von End-of-File liegen, zum Runtime-Fehler 

'AFTER EOF ERROR/' 

führen und das Programm ebenfalls vorzeitig beenden. 


Die SEEK-Prozedur kann nur auf Files angewandt werden, die im 
gerade als Arbeitslaufwerk definierten Drive verfügbar sind. 
Wird das anzusprechende File nicht gefunden, kommt es mit einer 
entsprechenden Meldung zu einem Runtime-Feh1 er einschließlich 
Programmabbruch. Das Arbeitslaufwerk kann erforder1ichenfal1s 
mit der noch zu besprechenden Prozedur SETDRV definiert werden. 
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Im übrigen wird mit dieser Prozedur der Zugriffszeiger genau auf 
das File-Element positioniert, dessen Ordinalzahl durch den mit 
AUSDRUCK repräsentierten Wert bestimmt wird. Dabei kommt dem 
ersten Element eines Files, also dem Element, auf das der 
Zugriffszeiger bei RESET bzw. REHR1TE gestellt wird, di« 
Ordinalzahl 0 zu. Die Entscheidung zwischen Lese- oder Schreib¬ 
zugriff ergibt sich aus der der SEEK-Prozedur folgenden 
Operation. Bei GET, READ bzw. READLN wird lesend zugegriffen, 
während mit PUT, HR1TE bzw. HR1TELN ins File geschrieben wird. 
Nach jedem Zugriff wird - wie beim File-Zugriff auch sonst 
üblich - der Zugriffszeiger um ein Element weitergesetzt. 


Nachdem einmal ein Schreibzugriff vorgenommen wurde, werden die 
hinter der Schreibposition eventuell noch vorhandenen Daten 
gelöscht. Im File kann jetzt nur noch schreibend weitergegangen 
werden. Der Abschluß der Schreib-/Leseoperation ist wie nach 
RESET bzw. REHRITE mit CLOSE bzw. LOCK vorzunehmen. Schreiben in 
ein mit LOCK gesichertes File ist nicht möglich. Wird es dennoch 
versucht, kommt es mit der Meldung 

1L.F1LE OPR . ERROR/' 

zu einem Runtime-Feh1 er einschließlich Programmabbruches. 


SETADR 

Diese Prozedur teilt dem laufenden Pascal-Programm mit, an 
welcher Stelle sich eine externe, vom Programm aufzurufende 
Routine befindet. Im Gegensatz zu LOAD ist dies vor allem für 
residente oder quasi-residente Routinen, vornehmlich Assembler- 
Routinen, gedacht. 

Syntax: ' SETADR < PROZEDUR _F UNKT 10HS_HAf1E , AUSDRUCK ) ; ' 
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PROZEDUR_FUNKTIÜNS_NAME steht für den Bezeichner der aufzu- 
rufenden externen Prozedur bzw. Funktion. Diese "EXTERNALS" 
werden mit diesem ihrem Namen aufgerufen und müssen in der 
Prozedur- bzw. Funktionsvereinbarung deklariert worden sein. Die 
Prozedur SETADR stellt während der Runtime die Verbindung 
zwischen diesem Namen und der tatsächlichen Adresse her. Diese 
Adresse ergibt sich aus AUSDRUCK, ein Expression vom Typ 
INTEGER . Diese Namen-Adreß-Zuweisung braucht natürlich nur 
einmal im Programm zu erfolgen, es sei denn, Sie deklarieren 
unter einem Namen verschiedene externe Routinen, die an unter¬ 
schiedlichen Stellen im Speicher abgelegt sind. Dies könnte 
geschehen, um beispielsweise alle mit demselben Namen aus einem 
einzigen gemeinsamen Unterprogramm aufrufen zu können. 

Ein allgemeines Beispiel zu dieser Thematik finden Sie in 
Abschnitt 4.1.2.2 

SETDRV 

SETDRV bestimmt das aktuelle Arbeitslaufwerk für den Disketten¬ 
zugriff. Die Fi 1e-öffnungsprozeduren RESET, RENRITE und SEEK 
kommen auf dem so definierten Arbeitslaufwerk zur Ausführung. 

Syntax: ' SETDRV(AUSDRUCK);' 

AUSDRUCK steht für das Expression, welches vom Typ INTEGER sein 
muß, und aus dem sich die Laufwerksangabe (Laufwerksnummer) 0 
oder 1 ergibt. Unzulässige Werte führen zu einem Runtime-Fehler 
mit der Ausgabe 

1L.DVC. ERROR'' 

und dem Beenden des Programms. 

Mit jedem Neustart eines Programms wird das Arbeitslaufwerk auf 
das System-Drive 0 definiert. Bei einem bereits geöffneten File 
braucht für den weiteren File-Zugriff die Laufwerksdefinition 
nicht mehr vorgenommen zu werden. Diese Information wird beim 
öffnen des Files in dem dem jeweiligen File zugeordneten Puffer- 
deskriptor bis zum Schließen des Files gespeichert. 
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SETTRAP 

Mit SETTRAP , das ohne Parameter aufgerufen wird, wird die mit 
CLRTRAP gelöschte I/O-Fehlerfalle wieder eingeschaltet, d.h. in 
den Zustand zurückversetzt, der nach dem Start eines Programms 
grundsätzlich vorliegt. Bei ei ngeschal teter I/O-Fehlerfal1e 
■führen alle Runt i me-Feh 1 er - unabhängig davon, ob es sich um 
einen Ausgabefehler handelt oder nicht - zur Ausgabe einer 
Fehlermeldung und zum Programmabbruch. Bei ausgeschalteter 
Fehlerfalle sind die I/O-Fehler davon ausgenommen, dann führen 
nur noch die restlichen, nicht abzufangenden Fehler zu einem 
Programmabbruch. Welche Runtime-Feh1 er als I/O-Fehler definiert 
sind, wird im Zusammenhang mit der in PROFI PASCAL definierten 
Funktion IOERROR weiter unten in diesem Abschnitt behandelt. 


Mit dieser letzten Prozedur wären alle zusätzlich in PROFI 
PASCAL definierten Prozeduren besprochen. Analog zur 
Vorgehensweise bei der Besprechung des Standard-Sprachumfanges 
folgt jetzt die Diskussion der Spracherweiterung hinsichtlich 
der zusätzlichen 


Funktionsvereinbarunaen . 


Die in PROFI PASCAL zusätzlich vordefinierten Funktionen lassen 
sich wieder grob in die drei Gruppen 

Typwandlungsfunktionen 
Zustandsfunktionen 

Rechenfunktionen/arithmetisehe Funktionen 


eintei1en. 
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Zur ersten Gruppe gehören: 

JMT 

Diese Funktion gestattet die Umwandlung einer Real-Größe in eine 
Größe vom Typ INTEGER. 

Syntax: '1 NT<AUSDRUCK) ' (Funktionstyp« INTEGER) 

AUSDRUCK steht für ein Expression des Typs REAL . Die Umwandlung 
dieses Ausdrucks in eine Integer-Größe ist natürlich nur für 
Größen im Bereich -HAX1NT..+MAXINT möglich. Andere Ausgangs¬ 
größen führen mit der Ausgabe 

‘1L.QUANT. ERROR/' 

zu einem Runtime-Fehler. 


HBYT 

LBYT 

Diese beiden Funktionen gestatten die Umwandlung einer Integer- 
Große in eine Größe vom Typ BYTE bei gl eichzeitiger Isolation 
des High-Order-Bytes (HBYT) bzw. Low-Order-Bytes (LBYT). 

Syntax: ‘HBYT(AUSDRUCK) ' (Funktionstyp: BYTE) 

' LBYT(AUSDRUCK) ' (Funktionstyp: BYTE) 

AUSDRUCK steht für eine beliebige Größe vom Typ INTEGER. Der 
Funktionsaufruf liefert mit HBYT das höherwertige Byte einer 
Integer-Größe, während er mit LBYT das niederwertige Byte der 
Integer-Größe liefert. In beiden Fällen ist der Ergebnistyp der 
jeweiligen Funktion BYTE. Diese Funktionen sind vor allem bei 
maschinennahem Programmieren sehr praktisch, da sie auf bequeme 
Art und Weise die beiden Teil-Bytes einer Integer-Größe liefern. 
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LOH 

Diese Funktion gestattet die Umwandlung einer Größe eines 
beliebigen skalaren Argumenttyps (ausgenommen REAL) in eine 
Größe vom Typ BYTE . 

Syntax: ’LOH(AUSDRUCK)' (Funktionstyp iBYTE) 

AUSDRUCK steht für eine Größe eines skalaren Type. Die 
Umwandlung der verschiedenen Größen vollzieht sich derart, daß 
die Ordinalzahlen der Argumentgröße und der Ergebnisgröße 
identisch sind. Bei Anwendung der Funktion auf Integer—Ausdrücke 
können diese natürlich nur bis zu einer Größe von 255 (®= $FF) 

umgewandelt werden. Deshalb führt die Anwendung der LOW-Funktion 
auf Werte > 255 unter Ausgabe der Meldung 

'1L.QUANT. ERROR/' 

zu einem Runtime-Fehler mit Programmabbruch. 

Im PROFI PASCAL - System ist mit der Anwendung dieser Funktion 
auf Integer-Argumente die Reduzierung des Speicherplatzes von 
einer 2-Byte-Größe auf eine 1-Byte-Größe verbunden. 


Als zur zweiten Funktionengruppe gehörend zählen diesmal nicht 
nur die vordefinierten Funktionen, die eine rein Boolsche 
Information' (Ja/Nein-Aussage) liefern, sondern auch solche, die 
über interne Systemzustände in Form eines Zahlenwertes oder 
einer Adresse Auskunft geben. Im einzelnen gehören zu dieser 
Gruppe: 

AMYKEY 

Mit dieser vornehmlich in Programmen mit Dialogabfragen 
einzusetzenden Funktion können Sie sich über eventuell erfolgte 
oder stattfindende Tastatureingaben informieren. 

Der Funktionsaufruf erfolgt ohne Argument nach der einfachen 

Syntax: * ANYKEY' (Funktionstyp iBOOLEAN) 
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Die Funktion läßt sich beispielsweise verwenden, um recht 
einfach Warteschi eifen zu programmieren, die auf eine 
Tastenbetätigung warten: 

HHILE NOT ANYKEY DO;' 

Ebenso einfach kann sie zur Verzweigungsentscheidung benutzt 
werden, falls die Tastatur nur bei einer auch tatsächlich 
stattgefundenen Betätigung ausgelesen werden soll: 

'IF ANYKEY THEN . .. (ELSE 


OETKEY 

Diese Funktion ist mit d£r in BASIC verfügbaren Funktion "GET" 
vergleichbar. Sie liefert das über die Tastatur eingegebene 
Zeichen. Der Aufruf erfolgt wie bei ANYKEY ohne Argument in 
folgender 

Syntax: GETKEY ' (Funktionstyp: CHAR) 


über diese Funktion können Sie, im Gegensatz zu READ bzw. 
READLN, gezielt die einzelnen, über die Tastatur eingegebenen 
Zeichen (Characters) auslesen. Es wird also immer nur der 
Tastatur-Input gelesen, wobei die Funktion die im Tastaturpuffer 
anstehenden Zeichen übernimmt. Liegen dort keine Zeichen vor, so 
wartet die Funktion auf die nächste Tastenbetätigung und 
übergibt das eingegebene Zeichen als Funktionsrückgabewert an 
das Pascal-Programm. Jedes Zeichen wird nach seiner Übernahme 
aus dem Tastaturpuffer entfernt, d.h. die mit GETKEY gelesenen 
Zeichen müssen gegebenenfalls für die weitere programmtechnische 
Verarbeitung zwischengespeichert werden. Mit GETKEY lassen sich 
beispielsweise recht einfach Menuesteuerungen vornehmen: 

CASE GETKEY OF ... (ELSE _ ) END; ' 
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IOERROR 

Diese bereits im Zusammenhang mit CLRTRAP und SETTRAP 
angesprochene Funktion liefert Auskunft darüber, ob bei einem 
Ein-/Ausgabe-Prozeß ein Fehler aufgetreten ist und wenn ja, 
welcher. IOERROR liefert als Funktionsrückgabewert eine Fehler¬ 
nummer. Auch sie wird ohne Argument aufgerufen. 

Syntax: ' IOERROR' (Funktionstyp: INTEGER) 


Die Verwendung der Funktion IOERROR ist nur sinnvoll, wenn 
vorher mit CLRTRAP die Runtime-Feh1 erfal1e ausgeschaltet wurde, 
denn andernfalls erfolgt ja nach Auftreten eines I/O-Fehlers ein 
Programmabbruch; eine programmtechnisehe Behandlung des Fehlers 
ist nicht mehr möglich. Ist jedoch die Fehlerfalle 
ausgeschaltet, kann durch Auswertung des mit dem Aufruf der 
Funktion IOERROR gelieferten Funktionswertes, der Feh 1ernummer, 
eine entsprechende programmtechnisehe Behandlung erfolgen. Die 
mit IOERROR auszulesende interne Statusinformation wird durch 
jede I/O-Operation unabhängig von ihrem augenblicklichen Inhalt 
neu gesetzt. Im einzelnen zählen folgende Runtime-Feh1 er zu den 
I/O-Fehlern, die bei gelöschter Fehlerfalle ( CLRTRAP ) nicht zu 
einem Programmabbruch führen (der in Klammern angegebene 
Zahlenwert ist der mit IOERROR gelieferte Funktionsrückgabewert 
vom Typ INTEGER ): 


'FLOPPY ERROR' (1) 

NOT OPEN ERROR' (2) 

NOT CLO. ERROR' (3) 

EUF.OV. ERROR' (4) 

' DIR.OV. ERROR ' (5) 

NOT FND. ERROR' (6) 

DSC.OV. ERROR ' (7) 

DSC.MISM. ERROR' (8) 

‘IL.FILE OPR. ERROR' (9) 

AFTER EOF ERROR' (10) 

IEEE - ERROR' (11) 


166 - 



PROFI PASCAL 


Ist beim I/O-Prozeß kein Fehler aufgetreten, so liefert die 
Funktion 10ERR0R den Wert 0. 


Die nicht als I/G-Fehler definierten Runtime-Fehler führen - wie 
bereits gesagt - immer zu einem Programmabbruch. Sie können 
nicht durch das Abschalten der Fehlerfalle unterdrückt werden. 
Vol1ständigkeitshalber seien sie an dieser Stelle nochmals 
aufgef ührt. 


OUT OF RNG. ERROR ' 
NOT EXQ. ERROR' 
NUH.OV. ERROR' 
B.SUBS. ERROR' 

'1L.QUANT. ERROR‘ 
STK.OV. ERROR' 
'ZERO-ülV. ERROR' 
‘1L.DVC. ERROR' 


Die ausführliche Erläuterung der Runtime-Fehler und der Ursachen 
für ihr Auftreten erfolgte bereits im Abschnitt 2.1.9 (RUN 
PROGRAM). 


Neben diesen drei Funktionen aus dem reinen 
in PROFI PASCAL weitere, der Gruppe der 
zuzurechnende Funktionsroutinen vordefiniert 
den folgenden Seiten im einzelnen besprochen. 


I/O-Bereich wurden 
Zustandsfunktionen 
Diese werden auf 
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FREE 

Damit kann jederzeit im Verlaufe eines Programms der noch 
verfügbare freie Speicherplatz zwischen Halde und Stack 
abgefragt werden. Argumente werden dieser Funktion nicht 
übergeben. 

Syntax: ' FREE ' (Funktionstyp: INTEGER) 

Der Funktionsrückgabewert ist der in 256-Bytes-Blöcken (Pages) 
ausgedrückte, für die Variablenspeicherung noch frei verfügbare 
Speicherraum. Dieser Wert kann als Ausdruck vom Typ INTEGER 
weiterverarbeitet werden. Der über eine glatte Blockgröße (Page- 
Grenze) hinausgehende Speicherplatz wird vernachlässigt. Mit 
dieser Funktion haben Sie die Möglichkeit, den Runtime-Fehler 
' STK.OV ERROR/' 

und den damit verbundenen Programmabbruch aufgrund der Belegung 
des Halden- bzw. Stackspeicherplatzes rechtzeitig abzufangen. 
Gegebenenfalls können im Programm entsprechende Vorkehrungen 
getroffen werden. 

LEH 

Die Funktion LEN liefert in Form einer Integer-Größe die Länge 
eines Strings, d.h. die Anzahl der Zeichen, aus denen der String 
besteht. 

Syntax: 'LEN(AUSDRUCK )' (Funktionstyp: INTEGER ) 

AUSDRUCK steht für ein Expression vom Typ STRING. Diese Funktion 
leistet nützliche Dienste beim Einlesen eines unbekannten 
Strings aus einem File und einer Weiterverarbeitung in 
Abhängigkeit von seiner Länge. Die maximal zulässige Länge eines 
Strings ist im Interesse eines nicht zu großen Input- bzw. 
Output-Puffers und im Hinblick auf die maximale Länge einer 
Druckerzeile auf 132 Zeichen festgelegt. 

ACHTUNG! 

Eine manipulative Veränderung dieser Maximal länge führt bei der 
Ausgabe solcher Strings zu Systemfehlern. 
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SIZE 

Mit dieser Funktion kann die Größe einer Pascal-Variablen 
innerhalb eines Programms ermittelt werden. 


Syntax s ' SIZE(TYPNAME) ' (Funktionstyps INTEGER) 

TVPNAME steht -für den Bezeichner, an den in der Typverei nbarung 
des Pascal-Programms eine Typdeklaration gebunden wurde. Es ist 
also nicht der Name der hinsichtlich ihrer Größe abzutestenden 
Variablen zu übergeben, sondern der dieser Variablen zugeordnete 
Typ. Der Rückgabewert der*Funktion ist der in Bytes ausgedrückte 
Speicherplatz, den diese Variablen oder, besser gesagt, dieser 
Variablentyp im Rechner belegt. Die Funktion liefert einen 
Ausdruck vom Typ INTEGER , der vor allem in Verbindung mit 
ALLOCATE , d.h. der gezielten Speicherplatzzuweisung an Pointer¬ 
variablen, benutzt werden kann. Doch auch bei der An- bzw. 
Einbindung von Maschinensprache-Routinen leistet SIZE beim 
Parameterzugriff gute Dienste, lassen sich doch mit dieser 
Funktion die Parametergrößen ebenfalls übergeben. 


Mit SIZE sind alle zusätzlich in die Gruppe der Zustands¬ 
funktionen aufgenommenen Routinen besprochen. Die sich jetzt 
anschließende dritte Funktionengruppe umfaßt die folgenden drei 
Funktionen: 
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HXS 

Diese Funktion (Hex-Summe) kann vor allem -für die Berechnung von 
Speicheradressen eingesetzt werden, da sie zwei Integer-Größen 
additiv verknüpft, ohne daß die übersehreitung des Integer— 
Wertebereiches mit einem Runtime-Fehler beanstandet wird. 

Syntax: ' HXS(AUSDRUCKl,AUSDRUCK2)' (Funktionstyp: INTEGER) 

AUSDRUCK1 und AUSDRUCK2 stehen für die beiden additiv zu 
verknüpfenden Expressions vom Typ INTEGER . So liefern z.B.: 

HXS($7FOO,$lA80) den Wert $9980 

und 

HXS(*A000,-*1800) den Wert $6800 , 

was bei der Berechnung über die normale Addition/Subtraktion zum 
Programmabbruch und zur Ausgabe folgender Runtime-Fehlermeldüng 
führen würde: 

‘NUN.OV. ERROR/' 


SION 

Diese SIGN-Funktion liefert das Vorzeichen eines numerischen 
Ausdrucks mit folgender 

Syntax: ' SIGN(AUSDRUCK)' (Funktionstypi INTEGER) 

AUSDRUCK steht für ein beliebiges Expression vom Typ INTEGER 
oder REAL . Der Funktionsrückgabewert liefert das Vorzeichen 
dieses Ausdrucks in Form einer Integer-Größe. Das positive 
Vorzeichen wird als *1, das negative Vorzeichen als -1 wieder¬ 
gegebenen. Der Wert 0 als Funktionsargument liefert auch 0 als 
Funktionsergebnis. Grundsätzlich gilt folgende Beziehung: 

AUSDRUCK = SIGN( AUSDRUCK.) * ABS (AUSDRUCK) , 

wobei AUSDRUCK stets für dasselbe Expression steht. 
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FRAC 

Die mathematische Funktion FRAC liefert als Pendant zur bereits 
zum Standard-Sprachumfang gehörenden Funktion TRUNC im Gegensatz 
zu dieser den Nachkommateil einer Real-Größe. 

Syntax: ' FRAG(AUSDRUCK)' (Funktionstyp: REAL) 

AUSDRUCK steht für ein beliebiges Expression vom Typ REAL^ von 
dem die Funktion FRAC der Nachkommatei1 abtrennt und ihn als 
Funktionsrückgabewert ebenfalls vom Typ REAL liefert. Das 
Vorzeichen ist dabei mit dem Vorzeichen des Argumentes der 
Funktion identisch. Da das gleiche für die Funktion TRUNC gilt, 
ergibt sich folgende stets gültige Beziehung: 

AUSDRUCK = TRUNC(AUSDRUCK) + FRAC(AUSDRUCK ), 

wobei unter AUSDRUCK stets dasselbe Real-Expression zu verstehen 
i st. 


Mit der FRAC-Funktion sind alle in PROFI PASCAL zusätzlich 
definierten Funktionen besprochen. Analog zur Behandlung des 
Standardsprachumfanges wird jetzt noch auf die zusätzlichen 
Verknüpfungsoperatoren innerhalb der Ausdrücke (Expressions) 
bzw. auf die Ausdehnung des Anwendungsbereiches einiger 
Standardverknüpfungen einzugehen sein. Als zusätzliche 

Operatoren sind vereinbart: 

SHL und SHR 

Sie sind als reservierte Wortsymbole definiert. SHL (SHift Left) 
verschiebt die Bitfolge einer Integer-Größe nach links, während 
mit SHR (SHift Right) eine Integer-Größe bitweise nach rechts 
geschoben wird. Die Anzahl der zu verschiebenden Bits wird durch 
den zweiten Operanden angegeben. Die Verknüpfung geschieht mit 
folgender 

Syntax: ‘AUSDRUCK 1 SHL AUSDRUCKS ' (Ergebnistyp: INTEGER) 

'AUSDRUCK 1 SHR AUSDRUCKS '* (Ergebnistyp: INTEGER) 
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AUSDRUCK1 und AUSDRUCK2 stehen -für beliebige Expressions vom Typ 
INTEGER . Das Ergebnis ist ebenfalls vom Typ INTEGER . 

Neben der Bitmanipulation liefert diese Operation aber auch eine 
Möglichkeit zur schnellen Multiplikation ( SHL ) mit Faktoren 
‘2*AUSDRUCK‘ bzw. schnellen ganzzahligen Division ( SHR ) durch 
Divisoren '2*AUSDRUCK'. Beispielsweise ergeben 

4747 SHL 2 die Multiplikation 4747 * (2^2) - 4747 * 4 

und 

1111 SHR 4 die Division 1111 DW (2^4) =» 1111 DIV 16. 


Mit den Operatoren 

AND un d OR sowi e NOT 

lassen sich in PROFI PASCAL auch Ausdrücke vom Typ BYTE 
verknüpfen. Dies wurde vorgesehen, um Bitfolgen, wie sie in 
einer Bytegröße, also dem Inhalt einer Speicherzelle vorliegen, 
logisch zu verknüpfen. Das Ergebnis der jeweiligen Verknüpfung 
ist dann wiederum eine Größe vom Typ BYTE . Beispielsweise 
1iefern 

#3 AND #12, also #*03 AND #*0C die Byte-Größe #3 <= #*03), 

#161 OR #25, also #*A1 OR #*19 die Byte-Größe #185 <= #*B9) und 
NOT #200, also NOT #*C8 die Byte-Größe #55 («= #*37). 


Mit diesen semantischen Ergänzungen zum Standard-Sprachumfang 
sind alle in diesem Abschnitt zu behandelnden Sprach- 
erweiterungen des PROFI PASCAL - Systems im einzelnen erläutert 
worden. Die hinsichtlich der Aufteilung großer Programme 
(Segmentierung) und des Aufrufs von "EXTERNALS" (vor allem in 
Bezug auf LOAD und SETADR) noch offenen Fragen werden im 
folgenden Abschnitt geklärt. 
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4. 1.2.2 ZUSÄTZLICHE PROGRAMMSTRUKTUREN f EXTERNAL8, 
SEGMENTE 

In diesem Abschpitt sollen die Möglichkeiten zur programm¬ 
technischen Aufteilung von Pascal-Programmen und/oder deren 
Verbindung in einer übergeordneten Programmstruktur, die 
Anbindung und Deklaration von "EXTERNALS", die Anbindung und 
Deklaration von Maschinensprache-Routinen und das Segmentieren 
von Pascal-Programmen besprochen werden. Alle vorgesehenen 
Möglichkeiten werden anhand eines allgemeinen Beispiels am Ende 
dieses Abschnitts vorgestellt. 

An den Anfang dieser Thematik soll die Segmentierung von Pascal- 
Programmen gestellt werden. Diese auch als Over 1ay-Technik 
bekannte Aufteilung eines großen Programms in mehrere im 
Programmablauf zusammengeflörende Programmblöcke geschieht in 
PROFI PASCAL mit der besonderen Anweisung 

SEGMENT 

Diese Anweisung ist ähnlich wie FORHARD kein reserviertes 
Vereinbarungs- oder Anweisungssymbol und auch kein Ausführungs¬ 
befehl, sondern ein Steuerungskommando an den Compiler. Das 
SEGMENT-Kommando steht syntaktisch an der gleichen Stelle, an 
der auch FORMARD im Programm angeführt werden muß, nämlich 
unmittelbar hinter dem Prozedur- bzw. Funktionskopf. Mit 
SEGMENT wird der Compiler angewiesen, den gesamten Block dieser 
Prozedur oder Funktion als Segment zu betrachten, dem weitere 
Segmente im Programm folgen werden und deren Programmcode immer 
für den gleichen Spei eherbereich kompiliert wird. Der Compiler 
merkt sich deshalb die Anfangsadresse des ersten Segmentes und 
kompiliert die folgenden jeweils für die gleiche Startadresse. 
Die Segmente werden gewissermaßen als parallel im Speicher 
abzulegende Programmabschnitte kompiliert. Der gesamte für die 
Segmente reservierte Speicherplatz richtet sich dabei nach dem 
längsten Segment. Nachdem alle parallel anzulegenden Segmente 
kompiliert sind, wird das. weitere Programm für die Speicher- 
stel1enadresse kompiliert, die auf den Platz für das längste 
Segment folgt. 
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Diese Ausführungen lassen erkennen, daß alle als Segmente zu 
vereinbarenden Blöcke 


a) unmittelbar aufeinander -folgen müssen, 

b) auf der gleichen Programmebene definiert sein müssen, 
wobei es keine Rolle spielt, auf welchem absoluten Level 
sie liegen, 


c) nicht ineinander verschachtelt sein dürfen und 


d) die Gesamtzahl von 8 nicht überschreiten dürfen. 


Diese Einschränkungen schließen aber nicht aus, daß beispiels¬ 
weise innerhalb eines als Segment vereinbarten Blockes beliebig 
tief Prozeduren bzw. Funktionen eingenestet werden können. Es 
muß nur dafür gesorgt werden, daß das nächste Segment dem ersten 
auf der gleichen Prozedur- bzw. Funktionsebsne ohne Zwischen¬ 
schaltung eines gl eichrangigen Blockes folgt. Auch ist es nicht 
ausgeschlossen, daß sich die einzelnen Segmentblöcke gegenseitig 
aufrufen können, wobei lediglich sichergestellt sein muß, daß 
dem aufrufenden Block der aufgerufene bekannt ist, wie das in 
jedem anderen Pascal-Programm auch Vorausgesetzt werden muß. 
Allerdings sollten Sie bei der Entwicklung segmentierter 
Programme bedenken, daß sich die verschiedenen Segmente nicht 
parallel im Speicher des Rechners befinden können, sondern nur 
im Bedarfsfall von der Programmdiskette nachgeladen werden. Dies 
geht natürlich zu Lasten der Programmlaufzeit und sollte dem¬ 
entsprechend durch einen geschickten Programmaufbau so selten 
wie möglich vorgesehen werden. Wird das eine Segment aus einem 
anderen heraus aufgerufen, wird nach Abschluß des aufgerufenen 
Blockes das aufrufende Segment automatisch wieder in den 
Speicher zurückgeladen und weiter ausgeführt. 
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Die Begrenzung auf 0 Segmente stellt in der Praxis keine 
Einschränkung dar, denn die damit erreichbare Programmgröße 
liegt derart hoch, daß wohl kaum bis zu dieser Grenze 
vorgestoßen wird. Ein Paradebeispiel für ein segmentiertes 
Programm ist der Compiler selbst. Dieses in Pascal formulierte 
Programm besteht neben dem Hauptpragrammrahmen aus den Segmenten 

INITIALISIERUNG, in der auch die vordefinierten Bezeichner, 
Funktionen und Prozeduren deklariert werden, 

HAUPTTEIL, der die Kompilation eines Blockes vornimmt, 

ASSEMBLERTEIL, der eingebettete Assembler-Routinen über¬ 
setzt, und 

ABSCHLUSSTEIL mit der statistischen Auswertung. 


Wenn dazu bedacht wird, daß dieses Programm mit seinen 4 
Segmenten einschließlich des Speicherplatzes für seine Variablen 
vom insgesamt zur Verfügung stehenden Speicherplatz 
(*0800..*C200) nur den Bereich *0800..*9000 in Anspruch nimmt, 
läßt sich ermessen, zu welcher Programmleistung der C64 durch 
das Segmentieren von Pascal-Programmen fähig ist. 


ACHTUNG! 

Das Nachladen des jeweils angeforderten Segmentes erfordert die 
ständige Verfügbarkeit des Programmcodefi1 es in dem Disketten¬ 
laufwerk, aus dem das Programm beim Start geladen wurde. Wird 
die Programmdiskette diesem Laufwerk entnommen, so wird beim 
nächsten Segmentaufruf das Programm mit einer entsprechenden 
Runtime-Fehlermeldüng abgebrochen. Nachdem das Programm 
gestartet wurde, kann jedoch das Arbeitslaufwerk innerhalb des 
Programms beliebig umgeschaltet werden. Ein zusätzlicher File- 
Puffer wird durch das Nachladen eines Segmentes nicht benötigt. 
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Die nächste zu erwähnende Möglichkeit zur Entwicklung großer 
Programme bietet sich mit den bereits im vorigen Abschnitt 
besprochenen Prozeduren 


CONTINUE und EXECUTE . 


Zu diesen Prozeduren sei an dieser Stelle nur nochmals erwähnt, 
daß mit ihrer Hil-fe - im Gegensatz zu einem segmentierten 
Programm - stets separat kompilierte vollständige Pascal- 
Programme von einer Diskette nachgeladen und gestartet werden, 
wobei sich beide Prozeduren wie folgt unterscheiden: 


CONTINUE erlaubt die Verkettung eigenständiger Programme 
einschließlich der Möglichkeit, in verschiedene Programm¬ 
zweige aufzugliedern oder in frühere Zweige zurückzukehren. 
Es befindet sich immer nur der mit CONTINUE aufgerufene 
Programmcode im Speicher, so daß keine gegenseitige Speicher¬ 
kollision auftreten kann. 


EXECUTE erlaubt das Aufrufen eigenständiger Pascal-Programme 
als Unterprogramme zum aufrufenden Hauptprogramm. Es müssen 
immer beide Programme im Speicher Platz finden, so daß bei 
der Anwendung dieser Technik eine genaue Speicherbelegung und 
-Verwaltung ausgearbeitet werden muß. 
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* EXTERHALS* 

Unter dieser Überschrift möchte ich auf eine Möglichkeit zur 
Generierung externer Programme und/oder Pragrammroutinen zu 
sprechen kommen. Die Nachteile der mit der Prozedur EXECUTE 
verbundenen Möglichkeit, ein separates Pascal-Programm als 
Unterprogramm zum laufenden Hauptprogramm aufzurufen, bestehen 
darin, daß zum einen mit jedem Aufruf das Nachladen von der 
Diskette verbunden ist und zum anderen an dieses Programm keine 
Parameter in "Pascal-Manier" übergeben werden können, da ein 
Programmkopf keine Parameterliste im üblichen Sinne erhält. 


Anders ist dies, wenn im eigentlichen Hauptprogramm die externen 
Routinen wie Prozeduren oder Funktionen deklariert werden. Dann 
kann an der jeweiligen Vereinbarungsstel1e auch eine Parameter— 
liste auf geführt werden. D* c? Information, daß es sich um externe 
Programmabschnitte handelt, erhält der Compiler durch die in 
PROFI PASCAL reservierten Wortsymbole 

XTRHPROC (füraeXTeRNal PROCedure) 

und 

XTRNFUNC (fürseXTeRNal FUNCtion) 


Der Compiler registriert die so deklarierten Prozedur- bzw. 
Funktionsbezeichner und deren Parameterliite. Der eigentliche 
Block dieser Prozeduren/Funktionen entfällt, da er extern 
vereinbart ist. Damit nun die Programmkontrol1e später bei der 
Runtime des Hauptprogramms weiß, an welcher Stelle sich das 
"EXTERNAL" befindet, um einen entsprechenden Ansprung ausführen 
zu können, muß diese Adreßvereinbarung einmal im vorhergehenden 
Programablauf mit der Prozedur LOAD oder SET ADR implizit (mit 
LOAD ) oder explizit (mit SF7.4D/?) vorgenommen worden sein (siehe 
auch dazu die Ausführungen in Abschnitt 4.1.2.1). 
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Die als XTRNPROC und/oder XTRNFUNC vereinbarten Routinen neiten 
mit ihrem Variablenstack auf dem des Hauptprogramms ein. Ihnen 
können Parameter aller in PROFI PASCAL vordefinierten Variablen¬ 
typen übergeben werden. Auch für den Funktionsrückgabewert 
können alle vordefinierten Typen gewählt werden. 


Diese externen Prozeduren oder Funktionen werden als solche 
kompiliert, d.h. sie erhalten im Programmkopf nicht das 
Wortsymbol PROGRAM , sondern die entsprechenden Symbole XTRNPROC 
oder XTRNFUNC , gefolgt vom jeweiligen Bezeichner und der 
Parameter1iste. Der Rest ist wie der Block eines normalen 
Pascal-Programms zu programmieren. Zur Abrundung dieser 
Möglichkeiten wurde auch die Deklaration eines vollständigen 
externen Programms vorgesehen. Dies ist, wie die bereits oben 
geschilderte Prozedurvereinbarung, mit dem reservierten 
Wortsymbol 

XTRNPROM (fürieXTeRNal PRoGraM) 

vorzunehmen. Das auf diese Weise ohne weitere Parameter1iste und 
Programmblock deklarierte Programm kann aus dem Hauptprogramm 
unter dem vereinbarten Bezeichner aufgerufen werden. Allerdings 
muß auch hier bei der Runtime dafür gesorgt werden, daß die 
Startadresse dieses externen Programms entweder implizit mit 
LOAD oder explizit mit S£TADR dem aufrufenden Hauptprogramm 
einmal mitgeteilt wird. Ein externes Programm wird wie ein 
normales Pascal-Programm kompiliert. Bei seinem Aufruf verwaltet 
es seinen eigenen Variablenstack, dessen Lage beim Start des 
Kompilationsvorganges festgelegt wurde. 


Bei Verwendung von "EXTERNALS" ist - wie bereits mehrfach 
erwähnt - unbedingt zu beachten, daß das Hauptprogramm erwartet, 
daß die "EXTERNALS" beim Aufruf an der angegebenen Speicher¬ 
stelle vorliegen. Da die "EXTERNALS" zusätzlich zum eigentlichen 
Hauptprogramm im Speicher abgelegt werden müssen, ist gewissen¬ 
haft auf die Vermeidung von Spei eherkol1isionen zu achten. 
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Die Vorteile in der Verwendung von "EXTERNALS" und im Aufruf von 
Programmen mit C0NT1NUE bzw. EXECUTE liegt neben der teil weisen 
Paral1elverarbeitung von Programmen auch in der Möglichkeit, 
diese Programme separat zu generieren und unter Umständen auch 
einzeln auszutesten. 


Bei der Kompilation eines Programms, in dem "EXTERNALS*' und die 
im Anschluß hieran noch zu besprechenden "USER"-Routinen 
vereinbart sind, überwacht der Compiler, daß wenigstens einmal 
im Programmfluß eine Adreßvereinbarung mit LOAD bzw. SET ADR 
stattgefunden hat. Wenn nicht, wird vom Compiler eine 
entsprechende Fehlermeldung am Ende der Kompilation generiert. 


Der letzte Punkt in diesem Abschnitt behandelt - wie schon 
gesagt - die 

"i/SE/T-Routinen. 


Sie stellen eine weitere Möglichkeit dar, externe Routinen in 
das eigentliche Pascal-Programm einzubeziehen. Im Gegensatz zu 
den "EXTERNALS" handelt es sich aber hierbei nicht um externe 
Pascal-Routinen, sondern um externe Maschinensprache-Routinen. 
Auch diese sind wie eine reguläre Prozedur oder Funktion zu 
vereinbaren. Zur Unterscheidung von den "EXTERNALS" geschieht 
dies aber mit den in PROFI PASCAL reservierten Wortsymbolen 

USERPROC und USERFUHC. 

Auch hier registriert der Compiler nur deren Bezeichner und 
Parameter1iste, so daß sie im Anweisungsteil wie normale 
Prozeduren und Funktionen mit ihrem Namen aufgerufen werden 
können. Ein Block wird bei der Deklaration nicht vereinbart. Wie 
innerhalb der Maschinensprache-Routine auf die übergebenen 
Parameter zurückgegriffen und Funktionarückgabewerte abgegeben 
werden können, wird in Abschnitt 4.1.2.3 bei der Behandlung 
eingebauter Assembler-Routinen erläutert. 
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Während der späteren Runtime des Programms müssen auch -für diese 
Routinen einmal im Ablauf des Programms die Sprungadressen mit 
der Prozedur SETADR vereinbart werden. Die Maschinensprache- 
Routinen müssen sich beim Start des Programms an der 
vereinbarten Spei eherstel1e befinden, es sei denn, sie werden 
beispielsweise mit RESET aus einem Code-File in einen der File- 
Puffer geladen und die Pufferadresse wird als Ansprungadresse 
vereinbart. Um Ihnen auch diese - eigentlich schon aus der 
Trickkiste gegriffene - Möglichkeit nicht vorzuenthalten, werden 
zu Beginn des unten angegebenen allgemeinen Programmbeispiels 
zur Handhabung segmentierter Programme und zur Verwendung von 
"EXTERNALS" und "USER"-Routinen die entsprechenden Speicher¬ 
platz i nformationen wiedergegeben s 



Im Zusammenhang mit dem Aufbau des Programmbeispiels sei 
folgendes angenommen: 

* das Hauptprogramm (BEISPIEL) soll im Bereich $2000..$9FFF 
laufen und arbeiten, 

* für den Bereich $0800..$1FFF sollen drei unabhängige Teil¬ 
programme (SUB1, SUB2 und SUB3) generiert worden sein, 

* für den Bereich $A000..$A7FF sei eine externe Prozedur 

< X_PR0C) , 

für den Bereich $A800..$AFFF sei eine externe Funktion 

<X_FUNC) vereinbart, 


* ein Abschiußprogramm (BADEXIT) sei für den Spei eherbereich 
$0800..$8FFFgeneriert, 


* je eine Maschinensprache-Routine (TEST1 und TEST2) sei für 
den Bereich $F100..$F27F und $F280..$F3FF definiert und im 
File USERCODE zusammengefaßt worden. 
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PROGRAM BEISPIEL; 


CONST 

PUFFER1 = SFIOO; 

PUFFER2 = PUFFER1 + $400; 
PUFFERS = PUFFER2 * $400; 


{Deklaration der Adressen der im? 
{PROFI PASCAL - System verein - } 
{barten File-Puffer; es Nird } 
{immer der in der angegebenen } 
{Reihenfolge erste freie Puffer } 
{beim öffnen eines Files belegt;} 


TYPE 

KENNER = (LADEN,SPEICHERN,ANZEIGEN,LOESCHEN,SICHERN); 
FELD = RECORD 

BEREICH*ARRAYEO..99J OF ALFA; 

MENGE :SET OF CHAR; 

END; 


VAR 

TAFEL : ARRAYC1 -. 3J OF FELD; 

LAUF : INTEGER; 

MENUE : KENNER; 


PROCEDURE EINRICHT; {Deklaration einer normalen } 

BEG1N ... END; {Pascal-Prozedur; } 

XTRNPROC X‘_PROC {Dek 1 ar at ion einer externen } 

( A,B : INT EGER ; I1SG : ST RING ) ; {Prozedur mit Par ame ter über gäbe ; } 

XTRNFUNC X_FUNC {Deklaration einer externen } 

(CH:CHAR;VAR TITLE:ALFA):BOOLEAN; {Funktion; } 
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FUNCTION LIESALFA {Deklaration einer normalen } 

(VAR LESEFILEaTEXT):ALFA; {Pascal-Funktion; } 

VAR 

EINGABE:STRING; 

BEGIN 

RE ADLN(LESEFILE,EINGABE);LIES ALFA: = EINGABE; 

END; 


USERPROC TEST1 
(VAR T AF sFELD); 


{Deklaration einer Assembler- } 
{Prozedur; } 


USERFUNC TEST2:B00LEAN; 


{Deklaration einer Assembler- } 
{Funktion; } 


PROCEDURE 1N1T;SEGMENT, {Deklaration eines Prozedur- } 

BEGIN {Segmentes; } 


LOAD(X _PROC,0); 

LOAD(X _FUNC,0); 

SET ADR(TEST 1, PUFF ER 1); 
SET ADR(TEST2,PUFFER1 + $ 
RESET(USERCODE )/ 


{Laden von X_PROC vom Drive 0; } 
{Laden von X_FUNC vom Drive 0; } 


{Adreßübergäbe ; } 

180);{Adreßübergäbe; } 

{Laden des Progr ammcodes in } 

{den Fi 1e-Puffer1; } 


FOR LAUF t<= 1 TO 3 DO 
TEST1(T AFELC LAUF I); 
IF NOT TEST2 THEN 
BEGIN 

CLOSE(USERCODE); 
CONTINUE(BADEXIT f O) 
END; 


{mehrmaliger Aufruf von TESTlf } 
{Aufruf der Boolschen Funktion } 
{TEST2; } 

{Programmfortsetzung mit BADEXIT} 


END; 
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PROCEDURE PARTI(JOBaKENNER)} {Deklaration des zweiten } 

SEGMENT; {Segment-Blockes} } 


BEG1N 

CASE JOB OF {Aufruf je einer der drei Prgm } 

LADEN zEXECUTE(SUB1,1)}{SUBl, SUB2 oder SUB3 über } 

SPEICHERN zEXECUTE(SUB2,1)}{EXECUTE als Pascal-Unterprgm ; } 

ANZEIGEN sEXECUTE(SUB3,1) 

ELSE ... 

END} 

END} 

FUNCTION PART2:B00LEAN} {Deklaration des dritten } 

SEGMENT} {Segment-Blockes} } 


BEG1N 

EINRICHT} 


PARTI(MENUE)} 


{Auruf eines anderen Segmentes} } 


PART2i= {Zuweisung des Funktionswertes} } 

LIESALFA(INPUT)='Ende' 

END} 

PROCEDURE EX IT}SEGMENT / {Deklaration des vierten } 

BEGIN ... END} {Segment-Blockes > 


BEG1N {Main-Programm } 

1NIT} {Aufruf des lnit.-Segmentes} } 

IF PART2 THEN EX1T {Aufruf des OK-Ausganges} } 

ELSE CONT1NUE(BADEX1T,0) {Aufruf des Fehlerausgangs / } 

END. 
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4.1.2.3 DER EINBAU VON A8BEMBLER-RÜUTINEN 

Auf die Möglichkeit des Einfügens von Assembler-Routinen in ein 
Pascal-Programm wurde bereits in Abschnitt 3.4 eingegangen. Dort 
ist auch ein kleines Programmbeispiel wiedergegeben, das sowohl 
die äußere Form des Assemb1er-Quel1textes als auch dessen 
Einbinden in das Pascal-Programm zeigt. Blieben in diesem 
Abschnitt noch die Übergabemechanismen für die Parameter und die 
Funktionsrückgabewerte zu besprechen. Die im Assembler-Programm 
zu verwendenden 65XX-Maschineninstruktionen werden zwar in 
Abschnitt 5.2 in einer knappen Zusammenstellung behandelt, aber 
für die Klärung tiefergehender Fragen und Probleme im Zusammen¬ 
hang mit der Maschinenprogrammierung darf ich Sie auf die 
diesbezügliche Literatur verweisen (siehe Anhang). Die in 
Assembler-Sources zusätzlich zu den 65XX-Instruktionen 
zugelassenen Pseudo-Instruktionen werden in Abschnitt 5.3 
behandelt. 


Hier möge der Hinweis genügen, daß zwar sämtliche Befehle vom im 
Compiler integrierten 65XX-Assembler im Programmtext zwar 
akzeptiert, aber zum Teil intern ignoriert werden. Es handelt 
sich dabei um die "Pseudos": 

. BA 

Mit diesem "Pseudo" wird dem Assembler die Startadresse des 
zu assemblierenden Programms mitgeteilt. Dies ist bei 
Routinen, die in Pascal-Programme eingefügt werden, nicht 
erforder1 ich, da diese unmittelbar in die Codefolge des 
Pascal-Programms eingebettet werden. Die Adresse ergibt sich 
zwangsläufig durch den Pascal-Rahmen. 

.OC 

Dieses "Pseudo" unterdrückt die Ausgabe von Maschinencode, 
wenn dieser lediglich zur Generierung der Adressen von Adreß— 
labels assembliert werden soll. Diese Möglichkeit ist im 
Rahmen von Pascal-Programmen nicht vorgesehen. Der Maschinen¬ 
code wird immer erzeugt und in die Pascal-Programmsequenz 
eingef ügt. 
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.CT 

Mit diesem "Pseudo" wird die Kettung von Assemb1er-Sources 
vorgenommen. Dies ist .aber im Pascal-Rahmen nicht möglich. 
Dafür stehen dem Pascal-Programm andere Anweisungen zur 
Verfügung. 


Hinsichtlich der Parameter- und Funktionswertübergaben muß 
folgendes berücksichtigt werden. Beim Aufruf einer im 
Vereinbarungstei1 deklarierten Funktion wird auf dem Pascal- 
Var i abl enstack ein Platz in der Größe reserviert, wie er für den 
Typ des Funktionsrückgabewertes benötigt wird, d.h. der auf Top- 
of-Stack zeigende Stackpointer wird um die entsprechende Anzahl 
Bytes herabgesetzt. Dies ist unabhängig davon, ob es sich um 
eine reguläre Pascal-Funktion, eine direkt assemblierte 
Maschinensprache-Funktion oder eine externe "USER"—Funktion 
handelt. Auf diesem Platz wird innerhalb des Funktionsblockes 
der Rückgabewert abgelegt bzw. abzulegen sein, wodurch sicher¬ 
gestellt ist, daß nach Rückkehr aus der aufgerufenen Funktion 
ihr Ergebnis unmittelbar auf Top-of-Stack als Wert für den 
symbolischen Funktionsnamen zur Verfügung steht und mit den 
weiteren Pascal-Anweisungen verarbeitet werden kann. 


Die an die Prozeduren und Funktionen zu übergebenden Parameter 
werden einer nach dem anderen in der Reihenfolge ihrer 
Definition bzw. Zuweisung auf dem Variablenstack abgelegt, d.h. 
sie werden immer unmittelbar unterhalb von Top-of-Stack bündig 
abgespeichert, wobei der Stackpointer laufend um die 
entsprechende Größe korrigiert (nach unten gesetzt) wird. Dabei 
wird für Parameter, die symbolisch mit Namen übergeben werden — 
sie sind in der Parameterliste mit VAR gekennzeichnet — deren 
Adresse auf dem Stack abgelegt. 


Innerhalb der aufgerufenen Routine stehen nun über den Stack¬ 
pointer die Parameter zur Verfügung, wobei der Stackpointer auf 
den letzten Parameterwert zeigt. Der Zugriff auf die anderen 
Parameter ist durch die Erhöhung des Zeigers um die Größe der zu 
überspringenden Parameter möglich. Die Größe der Parameter imt 
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entweder anhand der in Abschnitt 4.1.1 bei der Variablen¬ 
vereinbarung angegebenen Werte zu errechnen oder über die 
Funktion S1ZE zu ermitteln. Anstelle der er-forderlichen Erhöhung 
des Stackpointers läßt sich innerhalb eines Maschinenprogramms 
- und nur in einem solchen ist ja dieser Zugriftsmechanismus 
explizit erforderlich - über die in der 65XX-Programmierung 
verfügbare indirekt-indizierte Adressierung arbeiten. Die 
jeweilige Relativadresse (von Top-of-Stack aus gerechnet) ist in 
das Y-Register der CPU zu übernehmen, und mit der Instruktion 

'LDA (STKPOI),Y' 

läßt sich jedes gewünschte Byte auf dem Pascal-Stack greifen. 
Gegebenenfalls muß bei mehr als 256 Parameter-Bytes das höher¬ 
wertige Adreßbyte des Zeropage-Zeigers STKPOJ inkrementiert 
werden. STKPOI hat die Adresse $2E und ist innerhalb eines 
Pascal-Programms als vordefinierte Größe bekannt. 


Wenn ein Funktionsrückgabewert auf dem Stack abgelegt werden 
soll, muß dies (in der Regel mit STA (STKPOI),Y) auf dem 
richtigen Speicherplatz auf dem Pascal-Variablenstack geschehen, 
d.h. oberhalb aller eventuell übergebenen Parameter. 


Zum Abschluß der Maschinensprache-Routine muß der Stackzeiger 
wieder korrigiert werden, d.h. auf den Wert gestellt werden, den 
er vor Aufruf der Routine hatte. Er muß also um den Umfang aller 
übergebenen Parameter heraufgesetzt werden. 


An dieser Stelle sei noch auf eine Besonderheit beim Einfügen 
von Assembler-Routinen in Pascal-Programmen hingewiesens 
innerhalb der Assembler-Routine kann auf die im übergeordneten 
Pascal-Rahmen vereinbarten Konstanten unter Benutzung ihrer 
Namen zurückgegriffen werden. 
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Die Ablage der Parameter und Funktionsrückgabewerte auf dem 
Pascal-Stack soll durch die folgende Übersicht verdeutlicht 
werden: 

Es sei eine Assembler-Routine vereinbart 

'FUNCTION DEMOdlSG:STRING?ZEICHEN:CHAR?VAR HORT:ALFA):INTEGER ', 

die mit 


' 1F 36 - DENO( 'HALLO',CX,TITLE) THEN ... 


auf gerufen wird, wobei CX eine CHAR- und TITLE eine ALFA- 
Variable sein sollen. Die StackVersorgung vollzieht sich dann 
wie dargestellt (TOS = Top-of-Stack). 


1 . 

2 . 

3. 

4. 

5. 

6 . 

7. 

8 . 

9. 

10 . 

11 . 


TOS vor Eintritt in das 

Vergl ei chs-E;<pressi on. 

Ablage des 

Wertes 36. .. 

Einrichten des Platzes für 

Funktionsrückgabewert. 

Ablage der Stringadresse 

'HALLO'. 

Ablage von CX. 

Ablage der Adresse der 

Variablen TITLE. 

TOS bei Eintritt in DEMO 

<« Wert von STKPOI). 

Parameterbereich, auf den 
mit (STKPOI),V zugegriffen 

werden kann. 

Ablage des Funktions- 

rückgabewertes. 

Korrektur von STKPOI 
vor Verlassen von DEMO.... 
Hiermit wird Vergleichs¬ 
operation vorgenommen. 


hohe Adresse 


I 


. . I ! 

I I 

ADR L _!_• • S I 

; ; : i 

i ; 


! 

I 

I 


»00 _ 1 

»24 _! 


ADR H 
ADR L 


ADR H _1 


I 
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4. 1.2.4 COMP ILER-ANWEISUNGEN 

Im Rahmen eines unter PROFI PASCAL erstellten Programms können 
verschiedene Compi1er-Direktiven eingegeben werden. Insgesamt 
sind -folgende Anweisungen vorgesehen, die alle mit dem 
Zeichen beginnen. Sie können mit dem Anfangsbuchstaben des 
Anweisungsbegriffes abgekürzt werden. Diese abgekürzte Form ist 
in Klammern angegeben: 


&ADR+ 

<&A+) 

&ADR- 

(&A-) 

&C0NT1NUE 

(8<C) 

&1NCLUDE 

<&I> 

&PCODE+ 

(*<P+) 

&PCODE- 

<&P-) 

&TRUTH 

<&T> 


&CONTINUE und &INCLUDE , mit denen Pascal-Programmsources 
verbunden oder ineinander eingefügt werden können, wurden 
bereits ausführlich im Abschnitt 3.2 besprochen. Dort wurde auch 
die Möglichkeit der bedingten Kompilation unter Verwendung der 
Anweisung &TRUTH erläutert. Die restlichen Compi1 eranweisungen 
&ADR und &PCODE dienen der Steuerung der Adreßangabe bzw. der 
PCÜDE-Ausgabe beim Kompilieren der Pascal-Programme. 


Mit &ADR+ wird die Adreßausgabe eingeschaltet, die für jede 
Zeile des Pascal-Programms die Speicheradresse ausgibt, für die 
der erzeugte Programmcode generiert wird. Dies ist für die 
Fehl er1okalisierung beim Auftreten eines Runtime-Feh1 ers eine 
nützliche Orientierungshi1fe. Die Adreßausgabe kann mit der 
Compi1 eranweisung &ADR- wieder abgeschaltet werden. 
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Die PCODE-Ausgabe wird mit &PCODE+ eingeschaltet. Der Compiler 
gibt nun -für jede generierte PCODE-Instrukt i on ein mnemo¬ 
technisches Befehlskürzel heraus. Dazu werden die Speicher¬ 
adresse und der er -f order 1 i che Parameterumfang (in Bytes) 
angegeben. Mit StPCODE- wird die Ausgabe der PCÜDE-Mnemonics 
abgeschaltet. Die PCODE-Kürzel lauten folgendermaßen: 


ADDI 

= 

ADD IMH. MORD 


CALI 


CALL INDIRECT 


CALL 

= 

CALL ABSOLUT 


CALS 


CALL SEGMENT 


CP IB 

= 

COMPARE IMMEDIATE BYTE 

CPIN 

- 

COMPARE 1MM. n i 

BYTES 

CPIN 


COMPARE IMMEDIATE NORD 

EQUN 


COMPARE t> BYTES 

( = ) 

GEQN 


COMPARE Tt BYTES 

( > = ) 

GETN 


GET n BYTES (>) 


GOTO 


GO TO 


GRTI 

- 

COMPARE 1MM. NORD (>> 

GRTN 

= 

COMPARE n BYTES 

(>) 

INCT 


INCREMENT STACK 


JCDO 

* 

COND.-JUMP DONN 


JCUP 


COND.-JUMP UP 


JMPC 

= 

COND.-JUMP ABSOLUT 

JUMP 


JUMP ABSOLUT 


LEON 


COMPARE n BYTES 

<<=) 

LESN 

= 

COMPARE n BYTES 

(<) 

LITE 


LOAD IMMEDIATE 

BYTE 

LITN 


LOAD IMMEDIATE 

NORD 


(direkte Wort-Addition) 
(indirekter Aufruf) 

(absoluter Aufruf) 
(Segment-Aufruf) 

(direkter Byte-Vergleich) 
(direkter n-Bytes-Vergleich) 
(direkter Wort-Vergleich) 
(n-Bytes-Vergleich (=)) 
(n-Bytes-Vergl ei ch (>*=)) 
(n-Bytes-GET) 

(unbedingter Sprung) 

(direkter Wort-Vergleich (>)) 
(n-Bytes-Vergleich (>)) 
(Stackzeiger inkrementieren) 
(bedingter Sprung abwärts) 
(bedingter Sprung aufwärts) 
(absoluter bedingter Sprung) 
(absoluter Sprung) 
(n-Bytes-Vergleich (<=)) 
(n-Bytes-Vergleich (<)) 
(direktes Byte-Laden) 
(direktes Wort-Laden) 
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LODA 

= 

LOAD ADDRESS 

LODB 


LOAD BYTE 

LODS 

« 

LOAD STRING 

LODN 

X 

LOAD NORD 

LODX 

= 

LOAD JNDEXED 

LSSI 


COMPARE IMM. NORD (< 

MULI 

= 

MULTIPLY IMM . NORD 

NEQN 

= 

COMPARE n BYTES (<>) 

NEUN 

= 

NEN n BYTES 

NOP 

= 

NO OPERATION 

OPRC 

= 

OPERATION CODE 

PFIX 

= 

PREFIX OPR. CODE 

PUTN 

= 

PUT n BYTES 

RTRN 

X 

RETURN ABSOLUT 

RTNS 

= 

RETURN SEGMENT 

STOB 


STORE BYTE 

STOS 


STORE STRING 

STON 


STORE NORD 

STOX 

- 

STORE INDEXED 

SUB1 


SUBTRACT IMM. NORD 

TBYT 


CHECK BOUNDS 

NRTA 

= 

NRITE ARRAY 


(Adreß-Laden) 

(Byte-Laden) 

(String-Laden) 

(Wort-Laden) 

(indiziertes Laden) 

(direkter Wort-Vergleich (<)) 
(direkte Wort-Multiplikation) 
(n-Bytes-Vergleich <<>)) 
(n-Bytes-NEW) 

(Leer-Inatruktion) 
(Operationscode) 

(Pretix-Operationscode) 
(n-Bytes-PUT) 

(absoluter Rücksprung) 
(Segment-Rücksprung) 
(Byte-Speichern) 

(String-Speiehern) 

(Wort-Spei ehern) 

(indiziertes Speichern) 
(direkte Wort-Subtraktion) 

(Bereichsgrenzen-Test) 

(Array-Ausgabe) 


Die &ADR- und &PCODE-Anweisungen können mit einer generellen 
Anweisung beim Start des Kompilationsprozesses -für den gesamten 
Kompilationsvorgang ausgeblendet werden. 


Mit diesem Abschnitt über die Compiler-Anweisungen sind die 
gesamten Spracherweiterungen, die in PROFI PASCAL ausgenommen 
wurden, vorgestellt und erläutert worden. Die folgenden 
Abschnitte zum Kapital 4 beschäftigen sich mehr mit der 
praktischen Arbeit mit dem Compiler. 
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4.2 OPTIONEN 


Für den eigentlichen Kompi1at 1 onsprozeß bietet PROFI PASCAL eine 
Reihe von Optionen an. Diese beziehen sich aber nicht nur auf 
den reinen Kompilationsablauf, sondern auch auf das Kompilat, 
den erzeugten Programmcode. Ich möchte Ihnen diese Optionen in 
der Reihenfolge vorstellen, in der sie beim Aufruf des Compilers 
angeboten bzw. abgefragt werden. Grundsätzlich haben Sie jedoch 
die Möglichkeit, die intern festgelegten Vorschiagswerte und 
Vorgaben zu wählen, indem Sie die vom Compiler beim Start der 
Kompilation ausgegebene Abfrage 

DEFAULT 0PT10NS ? N/Y' 

mit 'V" < = Yes) beantworten. Falls Sie jedoch diese Frage 

verneinen, werden nacheinander die verschiedenen Optionen 
abgefragt und ihre Default-Werte ausgegeben. 

Als erstes geht es dabei um den 

Programmstart ■ 


Sie haben die Möglichkeit, den später vom Programmcode zu 
belegenden Speicherplatz hinsichtlich seiner Anfangsadresse 
selbst zu definieren. Dafür stehen Ihnen der gesamte Bereich 
40800..4C1FF und mit gewissen Einschränkungen für Ausnahme- und 
Sonderfälle der Bereich der File-Puffer (4F100..4FEFF) zur 
Verfügung. Die Gesamtlänge des vom Kompilat zu belegenden 
Spei eherbereiches ergibt sich natürlich erst nach Abschluß der 
Kompilation; sie wird durch den Programmumfang bestimmt. Mit der 
freien Wahl der Programmanfangsadresse besteht die Möglichkeit, 
die Pascal-Programme gezielt nach Ihren Vorstellungen und der 
von Ihnen für ein größeres Programmpaket entwickelten Speicher¬ 
verwaltung (Memory Map) zu organisieren. 
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Vom Compiler wird die Startadresse des Programms mit 

'START OF PRGN = $0800' 

unter Ausgabe des Default-Wertes, des internen Vor sch 1 agswertes 
$0800 abgefragt. Wie gewohnt können Sie Ihre Eingabe unter 
Verwendung dieser Vorgabe oder durch Angabe der gewünschten 
dezimalen oder hexadezimalen Adresse vornehmen. 


Als nächstes geht es um den 

Variablenspeieherplatz■ 

Der Compiler -fragt mit 

START OF HEAP = EOPGH ' 

nach dem Start der Halde, dem Platz -für die dynamischen 
Variablen, der von unten nach oben dem darüber1iegenden Stack, 
dem Platz für die statischen Variablen' entgegenwächst. Der 
Default-Wert gibt das Ende des Programms (' EOPGH' für End-Of- 
ProGraM) an, d.h. am Ende des Kompi1ationsprozesses wird der 
Haldenstart automatisch unmittelbar hinter das Ende des 
Programmcodes gelegt. Sie können jedoch den Beginn der Halde 
nach eigenen Organisationsplänen definieren. Sollte sich nach 
der Kompilation ergeben, daß der von Ihnen definierte Halden¬ 
anfang innerhalb des kompilierten Programmcodes liegt, wird der 
Kompilationsvorgang mit einer entsprechenden Fehlermeldung 
vorzeitig abgebrochen. 


Nach der Definition des Haldenanfangs wird mit 

•TOP OF STACK = $9000' 

das andere Ende des Stacks abgefragt, wobei $9000 als 
Vorsch1agswert ausgegeben wird. Wenn Sie anstelle dieses Wertes 
einen anderen Bereich angeben , überwacht der Compiler, daß Heap 
und Stack auch korrekt übereinander!iegenÖ definiert sind. 
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Der Compiler wird andernfalls die Eingabe mit 

’ILLEG. DECLARATION '' 

'START OF HE AP EXCEEDS TOP OF STACK/’ 

zurackweisen und eine neue Eingabe für Halde und Stack 
anfordern. Wie weiter oben schon erwähnt, steht Ihnen für 
Programmcode und Variab1enspeieher der Bereich $0800..$C1FF mit 
der Möglichkeit des eventuellen Ausweichens (aber nur für 
Sonderfälle!) auf den Bereich der File-Puffer $F100..$FEFF zur 
Verfügung. Ist die Eingabe in korrekter Form vorgenommen oder 
sind die Default-Werte bestätigt worden, ist als nächstes der 

Kompi1at i onsmodus 

zu bestimmen. 


Der Compiler erfragt diesen Modus mit 

’P.-CODE TO DISC ? N/Y’ 

Es stehen zwei Modi zur Verfügung. Der erste bietet die 
Möglichkeit, auf eine Diskette zu kompilieren, der andere die 
Möglichkeit der RAM-Kompi1ation. Der Unterschied ist folgender: 


Disketten-Kompi1ation 

Bei dieser als Default vorgeschlagenen Verfahrensweise 
schreibt der Compiler den generierten PCode als temporäres 
File C0DDAT auf die Diskette. Weiterhin legt er ein 
sogenanntes FIXUP-File an, in dem die Fi«-Up-Informationen 
enthalten sind, mit denen nach der Kompilation der PCode 
ergänzt wird. Diese Fix-Up-Prozedur ist erforder1ich, da der 
Pascal-Compi1 er als Einpaß-Compiler Vorwärtssprünge und 
Vorwärtsverweise erst nachträglich mit den korrekten Adressen 
im Programmcode eintragen kann. In analoger Weise wird mit 
den Assembler-Programmtei1en verfahren, die in einem Zweipaß— 
Prozeß assembliert werden. Etwas anders liegen die 
Verhältnisse bei der 
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RAM-Kompilation. 

Hier wird der vom Compiler generierte PCode unmittelbar im 
RAM-Speicher des Rechners abgelegt. Der Fix-Up-Vorgang wird 
dabei laufend ausgeführt und auch der Zweipaß-Prozeß für 
eingebaute Assembler-Routinen läuft unmittelbar im Speicher 
des Rechners ab. Der Vorteil des RAM-Modus' liegt in der 
höheren Arbeitsgeschwindigkeit, da keine Schreiboperation auf 
der Diskette vorgenommen werden muß. Allerdings erfolgt das 
Lesen der Pascal-Source in beiden Fällen von der Diskette. 


Um auch Pascal-Programme im RAM-Modus generieren zu können, 
die später dort laufen sollen, wo während der Kompilation der 
Compiler für sich selbst Speicherplatz beansprucht, wird das 
Kompilat temporär an einem von Ihnen zu bestimmenden 
Speicherplatz abgelegt. Aus diesem Grunde fragt das System 
nach Anwahl des RAM-Modus' mit 

' ST0R1NG ADRS. = f9000' 

nach diesem Speicherplatz. Als Default wird $9000 angegeben, 
da der Compiler selbst den Bereich $0800..$8FFF belegt. 
Verfügbar sind also noch $9000..$C1FF. 


Die Kompilation von segmentierten Programmen ist wegen der 
Paral1eladressierung der Segmente im RAM-Modus nicht möglich. 
Der Compiler wird dies gegebenenfalls mit einer 
entsprechenden Fehlermeldung beanstanden. 


Variablenkontrol1e 

Der Compiler bietet mit 

TESTS 0F B0UHDS ? N/Y ' 

die Möglichkeit, die Kontrolle der als Unterbereichstypen 
definierten Variablen abzuwählen. 
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Die als Default vorgesehene Kontrolle bezieht sich auf das 
Einhalten der bei der Var i abl endete 1 arat i on definierten Grenzen 
und ist vor allem für Array-Index-Größen außerordentlich 
wichtig. Die Kontrolle ist für das Generieren der Runtime- 
Fehlermeldüng CIL.QUANT. ERROR/') verantwort1ich. Die Kontroll- 
mechanismen werden als zusätzlicher PCode in das Programm 
aufgenommen, da die diesbezügliche Kontrolle sich ja erst zur 
Runtime des Programms vornehmen läßt. 


ACHTUNG! 

Das Abwählen der Variablenkontrol1e (Dereichsgrenzentest) sollte 
im Interesse einer hohen Programmsicherheit nur bei intensiv 
durchgetesteten Programmen vorgenommen werden. Die beispiels¬ 
weise durch falsche Array-Indizes außerhalb eines definierten 
Arrays vorgenommenen Zuweisungen sind äußerst heimtückische und 
schwer lokalisierbare Fehler. Bewerten Sie bitte den durch das 
Abwählen des Kontrol1 Codes eingesparten Speicherplatz und die 
Beschleunigung des Programms im Vergleich zu den Fehlerrisiken 
nicht zu hoch! 


Post-Mortem-Dump 

Ein besonderes Problem bei kompilierten Programmen ist das 
Auffinden, Analysieren und Beseitigen von Runtime-Feh1ern. 
Vielfach wird dieser Komplex als gravierender Nachteil von 
Pascal hingestellt. PROFI PASCAL unterstützt Sie in dieser 
Beziehung mit der Möglichkeit, ein sogenanntes Post-Mortem-Dump 
zu generieren, d.h. nach Auftreten eines Runtime-Fehlers läßt 
sich die Programmstel1e, an der der Fehler auftrat, hinsichtlich 
der Zugehörigkeit zu einer bestimmten Prozedur oder Funktion 
ermitteln und die Tiefe des Einnestens bei Unterprogrammaufrufen 
mit Angabe aller Prozeduren und Funktionen verfolgen. Darüber 
hinaus werden alle definierten Variablen mit ihren Namen und 
aktuellen Inhalten aufgelistet. 


- 195 - 



PROFI PASCAL 


Diese normalerweise unterdrückte Möglichkeit kann über die 
Abfrage 


SUPPRESS PMDUMP ? N/Y' 

angewählt werden. Sie ist verbunden mit dem Generieren zusätz¬ 
licher Programmcodes und dem Erzeugen eines besonderen Post- 
Mortem-Dump-Fi1 es, dessen Name gegebenenfalls auf die Abfrage 

DUMP-TITLE = P_M_DUMP‘ 

zu definieren ist. Als Vorschiagstitel wird dabei P_M_DUMP 
angeboten. Dieses File wird zusätzlich zum Programmcode 
generiert und rettet gewissermaßen die Bezeichner und sonstige 
Rückverfolgungsinformationen in die Runtime hinüber. Es ist das 
Bindeglied zwischen der Klartext-Source auf der einen und dem 
kodierten Programm auf der anderen Seite. Das zusätzlich 
Programmcode erzeugende und Ausführungszeit beanspruchende Post- 
Mortem-Dump-Verfahren ist nur im jeweiligen Einzelfall bis zur 
Fehlerbeseitigung zweckmäßig. Danach sollte ein neuer Compile- 
1 auf mit abgewähltem Post-Mortem-Dump vargenommen werden. 


A/P-Qption 

Die im Pascal-Quel1text einsetzbaren Compi1 eranweisungen &ADR+ 
bzw. &ADR- (Adreßausgabe) sowie &PCODE+ und &PCODE- (PCode- 
Ausgabe) werden normal erweise ignoriert (Default). Durch 
Verneinung der Frage 

'JGNORE A/P-OPT. ? N/Y' 

ist jedoch sichergestellt, daß die A/P-Qptionen bei der 
Kompilation berücksichtigt werden. 
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Ausgabeform/Hardcopy 

Als letztes schließen sich Optionen bezüglich der Ausgabeform 
des Kompi1ationsvorganges an. So wird zum einen nachgefragt, ob 
Sie die Ausgabe des Programmtextes während der Kompilation 
unterdrückt haben möchten (Default) oder durch Verneinen von 

'SUPPRESS OUTPUT ? N/Y' 

die Verarbeitung des Quelltextes Zeile für Zeile auf dem Bild¬ 
schirm verfolgen wollen. Ist die Textausgabe unterdrückt, 
generiert der Compiler für jede verarbeitete Zeile ein 
Zeichen und gibt im übrigen nur die Namen der zu kompilierenden 
Prozeduren und Funktionen an. 


Mit der Frage 

'SUPPR. HARDCOPY ? N/Y' 

wird abgeklärt, ob die vom Compiler normal erweise auf dem Bild¬ 
schirm wiedergegebene Ausgabe auf den Drucker geleitet werden 
soll. Wird dies gewünscht, so werden mit 

OUTPUT DEVICE 4,0‘ 

die Device- und Sekundäradresse des angeschlossenen Druckers 
abgdfragt, wobei 4,0 als Default-Werte vorgegeben werden. Der 
Compiler weist fehlerhafte Eingaben so lange mit 

1LLEG. INPUT /' 

zurück, bis eine akzeptable Angabe erfolgt ist. 


Damit sind sämtliche für den Kompi1ationsvorgang von Ihnen 
beeinflußbaren Optionen des Compilers vorgestellt worden. Nach 
der letzten Eingabe beginnt er sofort mit der eigentlichen 
Kompilation unter Berücksichtigung der ausgewählten bzw. 
eingegebenen Rahmenbedingungen. 
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4.3 DER KOMPILATI0N8PR0ZE88 

Pascal-Quel1 Programme werden mit dem PROFI PASCAL - Compiler 
übersetzt, der auch die in 65XX-Assemb1er-Notation geschriebenen 
Prozeduren und/oder Funktionen, die in das Pascal-Programm 
eingefügt sind, in einem Zuge mitassembliert. Der Compiler wird 
aus dem MAIN-Rahmen mit dem 'C'-Kommando aufgerufen. Er erwartet 
das Quellprogramm (Source) als Textfile auf der Diskette. Aus 
diesem Grunde fragt das System nach Eingabe des 'C'-Kommandos 
sowohl nach dem Namen des zu kompilierenden Programms als auch 
anschließend nach dem Laufwerk, in dem sich die zugehörige 
Diskette befindet: 

' F1LE-T1TLE = ?' 

' DRIVE(MAP) = x‘ 


Als Vorschiagswert x wird bei der Laufwerksangabe das zuletzt 
benutzte Laufwerk vorgegeben, so daß in der Regel nur mit einem 
RETURN geantwortet werden muß. 


Anstelle des aktuellen File-Namens kann bei der betreffenden 
Frage auch mit geantwortet werden, was den Compiler anweist, 
das unmittelbar zuvor mit dem Editor bearbeitete Textfile zu 
kompilieren. Für die jetzt überflüssige Laufwerksangabe bittet 
das System um Bestätigung unter Nennung des zuvor verwendeten 
File-Namens und der zugehörigen Laufwerksnummer: 

’CONFIRM "FILENAHE f DRlVE_NR"? N/V 

Bei fehlender Bestätigung oder sonstigen fehlerhaften bzw. 
ungültigen Angaben wird der weitere Aufruf de® Compilers 
ignoriert und Sie verbleiben auf der Kommandoebene des MAIN- 
Rahmens. 
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Wenn alle Angaben in einwandfreier Form getätigt wurden, 
erfolgen nun das Laden des Compilers von der Systemdiskette in 
den Rechner und dessen weiterer Ablauf. Dieser Ladeprozeß wird 
mit einer im File LOADDAT befindlichen Hilfsroutine vorgenommen, 
so daß dieses neben dem Compiler (File C_CPLR) auf der System¬ 
diskette im Drive 0 verfügbar sein muß. Ist dies nicht der Fall 
und/oder sollte das angegebene Textfile nicht im betreffenden 
Laufwerk verfügbar sein, so werden entsprechende Fehlermeldungen 
generiert und die Programmkontrol1e kehrt zur erneuten Kommando¬ 
eingabe in den MAIN-Rahmen zurück. Für den Fall, daß es sich 
beim angegebenen File nicht um ein Textfile handelt, wird, 
ebenfalls nach entsprechender Fehlermeldung, der Compiler wieder 
verlassen und auf die MAIN-Ebene zurückgesprungen. 


Nach dem Initialisieren des Compilers und dem öffnen des 
Quel1programmfi1 es meldet sich der Compiler und bestätigt die 
angegebenen Daten mit folgender Ausgabe: 

READY TO C0NP1LE: PROGRAN "PROGRANNNANE f DR1VE_NR"/’ 

PROGRAMMNAME steht für den Bezeichner, der im Programmkopf für 
PROGRAN vereinbart wurde. DRIVE_NR gibt das für das Sourcefile 
definierte Laufwerk an. 


Wurde dem Compiler anstelle einer Programm-Source eine Quelle 
für eine externe Prozedur oder Funktion übergeben, so erscheint 
das entsprechende Wortsymbol ( XTRNPROC bzw. XTRNFUNC ) anstelle 
des Symbols PROGRAN in obiger Bestätigungsmeldung. 

Im Anschluß an diese Bestätigung erfolgt mit 

DEFAULT 0PT10NS ? N/Y' 

die Nachfrage, ob die Kompilation mit den intern definierten 
Vorgaben erfolgen soll ('V' für Ja). Werden die Default-Werte 
mit 'N' abgewählt, erfolgt die explizite Abfrage aller für die 
Kompilation relevanten Rahmenbedingungen, wie es bereits in 
Abschnitt 4.2 beschrieben wurde. 
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Für die Kompilation externer Prozeduren und Funktionen sind 
jedoch keine De-f aul t-Angaben vorhanden, so daß in einem solchen 
Fall die erforderlichen Angaben stets explizit in der in 
Abschnitt 4.2 dargestellten Reihenfolge abgefragt werden und 
einzugeben sind. Die Definition eines Speicherbereiches für die 
Variablen entfällt dabei, weil "EXTERNALS" mit ihren Variablen 
auf dem Stack des aufrufenden Programms einnesten. Sie verfügen 
über keinen eigenen Variablenbereich. 


Nun beginnt der Compiler mit dem übersetzen des Quel1 Programms 
und erzeugt den später lauffähigen Programmcode. Die im Zuge der 
Kompilation auf tretenden Syntaxfehler werden entsprechend den 
Ausführungen in Abschnitt 4.4 vom Compiler beanstandet und 
angezeigt. 

Nach Abschluß einer fehlerfreien Kompilation erfolgt der 
Kompilationsabschluß nebst Linken und Abspeichern des Programm¬ 
codes. Danach wird die Programmkontrolle vom Compiler wieder an 
den MAIN-Rahmen abgegeben. Wurden jedoch bei Durchführung der 
Kompilation Fehler im Programmtext festgestellt oder der Über¬ 
setzungsprozeß durch Betätigung der RUN/STOP-J aste vorzeitig 
abgebrochen, wird unmittelbar vom Compiler der Editor geladen 
und aufgerufen, der dann seinerseits das zu kompilierende 
Programmfile zwecks Editierens lädt. Von dort kann über den 
MAIN-Rahmen die Kompilation erneut eingeleitet werden. 
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4.4 FEHLERMELDUNGEN 


In diesem Abschnitt soll kurz auf die Behandlung und Beseitigung 
von syntaktischen Fehlern im Programmtext eingegangen werden. 
Vor allem als Pascal-Neuling unterlaufen Ihnen in der 
Anfangsphase eine Vielzahl von syntaktischen Fehlern. Sie 
sollten deswegen aber keineswegs vor der weiteren Verwendung von 
Pascal zurückschrecken, denn selbst erfahrene Programmierer sind 
gegen solche Fehler und Nachlässigkeiten nicht gefeit. Falls Sie 
am Anfang geneigt sind, sich ob der hohen Zahl an Syntaxfehlern 
frustriert von Pascal zurückzuziehen, so bedenken Sie, daß kaum 
eine andere Sprache eine derart präzise und zuverlässige Syntax- 
und Fehlerkontrolle besitzt. Der Compiler bemerkt selbst die 
kleinste Nachlässigkeit und beanstandet sie. Sind die Programme 
aber erst einmal einwandfrei kompiliert worden, so bieten sie in 
hohem Maße die Gewähr, daß sie auch einwandfrei arbeiten. 


Die vom Compiler während der Kompilation entdeckten Fehler 
werden sofort unter Angabe einer Fehlernummer angezeigt, wobei 
die fehlerhafte Zeile auf dem Bildschirm (oder bei der Option 
"Hardcopy" auf dem Drucker) ausgegeben und die ungefähre 
Fehlerlage durch ein t '-Zeichen näher markiert werden. Bei der 
Bi 1dschirmausgabe wartet der Compiler auf das Quittieren des 
Fehlers durch Betätigen der Leertaste (Space). Vielfach werden 
an einer Fehlerstelle mehrere Folge- und/oder Scheinfehler 
unterstellt und ausgegeben. Der Compiler versucht - so gut es 
ihm möglich ist - an einer geeigneten Stelle in der Source 
wieder einzurasten und den weiteren Teil des Programms zu 
kompilieren. In der Regel gelingt ihm dies auch. So wird sicher¬ 
gestellt, daß bereits in einem einzigen Compile-Lauf nahezu alle 
Fehler entdeckt werden, die dann in einem Arbeitsgang im 
Quelltext korrigiert werden können. 
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Sollte es sich bei einem Syntaxfehler lediglich um einen 
unbedeutenden Schreibfehler handeln (z.B. statt so 
gibt der Compiler nur eine Warnung (WARNING) anstelle eines 
Fehlers (ERROR) aus. Bei einem lediglich mit Warnungen 
beanstandeten Programm wird nach Abschluß des Kompi1ations- 
prozesses ein lauffähiger Programmcode generiert. Dagegen wird 
bei fehlerhaften Programmen auf die weitere Erzeugung eines 
Programmcodes verzichtet. 


Der Kompilationsprozeß kann jederzeit - unabhängig vom Auftreten 
von Fehlern und/oder Warnungen - durch Betätigen der ' RUN/STOP '- 
Taste abgebrochen werden. In diesem Fall wird automatisch der 
Editor von der Diskette nachgeladen und gestartet. Dieser 
wiederum lädt die vom Compiler gerade bearbeitete Programm- 
Source. Dasselbe geschieht am Ende des gesamten Kompi1ations- 
vorganges, wenn irgendwelche Fehler im Programm festgestellt 
wurden. Nach der Korrektur der Programmquel1e kann unter 
Verwendung des mit dem '*'-Zeichen abgekürzten File-Namens diese 
wieder auf der Diskette abgespeichert und auch dem Compiler nach 
seinem erneuten Aufruf übergeben werden. Diese Verfahrensweise 
erlaubt ein recht zügiges Arbeiten mit dem System und ein 
schnelles Umschalten zwischen dem Editiervorgang und dem 
Kompi1ationsprozeß. 


Bei einer bis zum Ende des Programms durchgeführten Kompilation 
wird die Gesamtzahl der registrierten Fehler und Warnungen 
angezeigt. Die beim Auftreten eines Fehlers ausgegebene Fehler¬ 
nummer bezieht sich auf die im "Pascal User Manual and Report" 
festgelegte Fehlerliste, die in PROFI PASCAL um einige durch die 
Spracherweiterungen bedingte Fehlermeldungen ergänzt wurde. Die 
Ergänzungen wurden bereits in der Kurzbeschreibung des Pascal- 
Compilers (Abschnitt 1.3.3) vorgestellt. Im Anhang dieses 
Manuals finden Sie die komplette unter PROFI PASCAL verwendete 
Fehl er 1iste. 
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4.3 DER KOMP I LATI0NBAB8CHLU8B 


Der Kompilationsabschluß ist abhängig vom Verlauf und Erfolg der 
Kompilation. Beim Registrieren von Fehlern im Quel1programm 
werden zum Abschluß der Kompilation der Editor und der vom 
Compiler bearbeitete Quelltext mit entsprechenden Meldungen 
geladen und der Editor zum Editieren der fehlerhaften Source 
gestartet. Auf den weiteren Arbeitsablauf soll hier nicht näher 
eingegangen werden, da er bereits an anderer Stelle in diesem 
Handbuch ausführlich behandelt wurde (siehe Abschnitte 3 und 
4.3) . 


Konnte dagegen der Kompi1ationsprozeß erfolgreich zu Ende 
geführt werden, so bietet der Compiler mit der Meldung 

'ST ATI ST IC AL SUNMARY ? N/Y ' 

eine Anzahl statistischer Angaben an, die mit 'V' (= Ves) 

angefordert und zur Ausgabe gebracht werden können. Der Compiler 
liefert dann in einer umfassenden Zusammenstellung die Daten 
über eine Reihe intern verwalteter Größen. Das sind zum einen 
die Anzahl der statischen Unterprogrammebenen, die Anzahl der im 
Program vereinbarten Bezeichner in einer Gesamtsumme und 
äufgeteilt in verschiedene Gruppen, wobei unter 'D1V. 
REFERENCES' die Gesamtzahl der Verweise auf nicht explizit 
deklarierte Typdefinitionen, Mengenvereinbarungen, Vorwärts¬ 
verweise usw. zu verstehen ist. Des weiteren werden die Anzahl 
der maximal in einem Block bekannten Bezeichner sowie der Name 
des betreffenden Blockes angegeben. Zum anderen werden aber auch 
Angaben über den vom Programmcode belegten Speicherplatz, den 
Variablenspeicherplatz sowie die temporäre Lage des PCodes bei 
RAM-Kompi1ation gemacht. Alle Angaben werden tabellarisch wie 
folgt ausgegeben: 
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STATISTICAL SUMMARY OF "PRGMNAME": 


NO ERRORS/ // xx NARNINGS/ 
MAXIMUM OF STATIC LEVELS = x 
MAXIMUM OF VALID IDENTIFIERS 
INCL. PREDFND. IDENT'S = xx 
AT THE SCOPE OF "P_F_NAME" 
MAX. OF VALID PARAMETERS = xx 
DECLARATIONS IN DETAIL ... 
DIV. REFERENCES = xx 
CONSTANTS = xx 
VARIABLES = xx 
FIELD-IDENTIFIERS = xx 
PROCEDURES = xx 
FUNCTIONS = xx 
PARAMETERS-BY-NAME = xx 
TOTAL - xx 


PRGM-PCODE AT: fxxxx 
TMP.STORED AT: fxxxx 
HEAP/STACK AT: fxxxx 


fxxxx (- fxxxx) 
fxxxx 

fxxxx (= fxxxx) 


LINK ING AND SAVING "PRGMNAME " 
-> PRESS RETURN 


Mit der letzten Ausgabezeile beginnt der Compiler, bei 
Disketten-Kompi1ation den erzeugten PCode zu vervollständigen 
(Fix-Up-Prozeß) und gegebenenfalls segmentierte Programme 
zusammenzufügen. Der endgültig lauffähige Programmcode wird auf 
der Diskette unter dem im Programmkopf für PROGRAM bzw. 
XTRNPROC oder XTRNFUNC vereinbarten Bezeichner abgespeichert. 
Das lauffähige Programm wird an seinen tatsächlichen Speicher¬ 
platz transferiert und kann - falls gewünscht - anschließend aus 
dem MAIN-Rahmen sofort mit ' R ' und gestartet werden. Doch 
zunächst wartet der Compiler geduldig auf die Betätigung der 
RETURN- Taste, um Ihnen für die Auswertung und Erfassung der 
statistischen Angaben Zeit zu lassen. Im Anschluß daran liegt 
die Programmkontrol1e wieder im MAIN-Rahmen. 
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4.6 MÖGLICHKEITEN ZUR LOKALISIERUNG 
VON RUNTIME-FEHLERN 

Unter Runtime-Fehler ist die zur Ausführungszeit (Runtime) eines 
Programms auftretende Situation zu verstehen, in der die 
korrekte Abarbeitung bzw. Weiterverarbeitung von Daten nicht 
mehr sinnvoll oder gar nicht mehr möglich ist. Der einzige 
Ausweg, der in einem solchen Falle bleibt, ist der des 
Programmabbruchs unter Ausgabe des dazu führenden Grundes. Damit 
ist zwar bekannt, aus welchem Grunde das Programm vorzeitig 
beendet wurde, aber nicht, welche Umstände im einzelnen dazu 
beigetragen haben. Doch gerade das Wissen um diesen Hintergrund 
ist für das Abfangen und Vermeiden der zu einem Runtime-Feh1 er 
führenden Situationen von entscheidender Wichtigkeit. Nur so 
kann bereits vor dem Eintritt in eine programmtechnisch 
kritische Phase abgetestet werden, ob sie auch problemlos durch¬ 
laufen werden kann. In anderen Situationen können mit dem Wissen 
um die Fehlerquellen der Programmbenutzer zu richtiger Programm¬ 
bedienung aufgefordert ("überwacht") oder ihm rechtzeitig vor 
Eintritt fataler Folgen verschiedene Vorgehensweisen angeboten 
werden. 


Die Vermeidung verschiedener Runtime-Fehler wird durch PROFI 
PASCAL unterstützt. Zum einen läßt sich mit Löschen der I/O- 
Fehlerfalle der Programmabbruch bei einem I/O-Fehler vermeiden. 
Statt dessen kann nach der I/O-Operation über die Funktion 
IOERROR nachgefragt werden, ob ein Fehler und gegebenenfalls 
welcher aufgetreten ist. In einer anschließenden Programm¬ 
verzweigung können die verschiedenen Fälle dann berücksichtigt 
werden. Des weiteren ist beispielsweise mit FREE die Überwachung 
ausreichenden Variablenspeicherplatzes möglich usw. 

Um aber diese Dinge an der richtigen Stelle ausführen zu können, 
ist es außerordentlich wichtig, in der Testphase eines Programms 
seine Schwachstellen aufzudecken, d.h. vorzugsweise die Stellen 
zu finden, an denen die sich einstellenden Runtime-Fehler 
auf treten, und zu ermitteln, welche datenmäßigen Bedingungen in 
diesem Augenblick vorliegen. Dies ist der eigentliche Angelpunkt 
für die Fehlersuche in Programmen, vornehmlich in kompilierten. 


- 205 - 



PROFI PASCAL 


Die "klassische" Lösung dafür sieht vor, in der Umgebung der 
vermuteten Feh1 erstel1en über WRITE-Statements 

a) zu ermitteln, wie weit das Programm noch einwandfrei läuft 
und 

b) die Inhalte "verdächtiger" Variablen ausgeben zu lassen. 


Dies ist jedoch ein mühsames und oft zeitraubendes, mit viel 
Spekulation verbundenes Verfahren, wobei die in PROFI PASCAL 
zusammen mit der Fehlermeldung ausgegebene Spei eheradresse der 
Fehlerstelle aber schon einen wichtigen Hinweis auf die Fehler¬ 
lage liefert. Eine erneute Kompilation zur Lokalisierung der 
genauen Fehlerstelle in der Programmquel1e über die &ADR+'- 
Option ist in der Regel unerläßlich. 


Eine gezielte Vorgehensweise ist erst durch das Generieren eines 
sogenannten Post-Mortem-Dumps (PM-Dump) möglich. Er liefert bei 
einem Programmabsturz alle verfügbaren Informationen und läßt in 
der Regel die Hintergründe selbst hartnäckiger Runtime-Fehler 
erkennen. Der PM-Dump wird bei der Kompilation als Option 
angeboten. In Abschnitt 4.2 wurde darauf bereits eingegangen, so 
daß ich mich hier entsprechend kurz fassen kann. 

Für den Fall, daß diese Option angewählt wurde, werden im 
Programm zusätzliche Marken eingebaut, damit später eine 
Verbindung zwischen dem ebenfalls mit der Kompilation 
anzulegenden PM-Dump-File und den verschiedenen Blöcken des 
Pascal-Programms hergestellt werden kann. Im übrigen ist das 
kompilierte Programm voll lauffähig und nur um diese 
zusätzlichen Marken länger. Tritt bei einem so kompilierten 
Programm ein Runtime-Fehler auf, wird nach der Fehl eranzeige 
automatisch das die Post-Mortem-Ausgabe steuernde Programm 
geladen und gestartet. Dieses ruft nun seinerseits das mit der 
Kompilation erzeugte und von Ihnen hinsichtlich seines Namens 
definierte File auf. 
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Alle verfügbaren Daten und die bis zum Auftreten des Fehlers 
durchlaufene Programmstruktur werden tabellarisch gelistet. Die 
Variablen werden mit ihren Bezeichnern angegeben und ihr Inhalt 
wird - soweit es möglich ist - in der richtigen Interpretation 
ausgegeben. Der geschilderte Ablauf läßt erkennen, daß bei einem 
mit der PM-Dump-Optian generierten Programm neben diesem die 
Files LOADDAT (für den Ladeprozeß), C_PMDUMP (als eigentliches 
Ausgabeprogramm) und das PM-Dump-File des jeweiligen Programms 
verfügbar sein müssen. Das PM-Dump-File wird auf derselben 
Diskette erwartet, auf der sich auch das eigentliche 
Programmfile befindet, während LOADDAT und C_PMDUMP im System- 
Drive 0 verfügbar sein müssen. 


Beim Start des PM-Ausgabeprogramms wird 
Ausgabe auf den Bildschirm oder den Drucker 
weiteren läßt sich die Darstellungsform für 
Variablen bestimmen. 


abgefragt, ob die 
zu leiten ist. Des 
Array- und Record- 


Eine völlig anders gelagerte Möglichkeit, Runtime-Fehler in den 
"Griff zu bekommen", habe ich für das Editor- und das Utility- 
Programm gewählt. Wenn auch diese Lösung nicht bis zur letzten 
Konsequenz mit dem Pascal-Konzept konform geht und nur über die 
internen Programmstrukturen von PROFI PASCAL realisierbar ist, 
will ich sie Ihnen nicht vorenthalten. In ihrem Ablauf arbeitet 
sie absolut korrekt und zuverlässig, was dazu führt, daß 
beispielsweise ein Verlust des mit dem Editor erstellten und 
bearbeiteten Textes aufgrund eines Runtime-Feh1 ers so gut wie 
ausgeschlossen ist. Natürlich ist die gewählte Methode kein 
Allheilmittel zur Vermeidung oder Behandlung von Runtime- 
Fehlern. Trotz dieser Lösung konnte im Editor auf den einen oder 
anderen zusätzlichen Fehlertest nicht generell verzichtet 
werden. 
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Das im Editor und Utility benutzte Verfahren stützt sich auf 
folgende Zusammenhänge: 

Der Aufruf eines Programms aus dem MAIN-Rahmen vollzieht sich 
über einen indirekten Sprung, dessen Adreßzeiger sich auf der 
Systemadresse $0363 (ADR_PRPG) befindet. 

Der Rücksprung aus einem Program in den MAIN-Rahmen - legal 
bei Programmende oder vorzeitig durch Runtime-Fehler — 
erfolgt ebenfalls über einen indirekten Sprung unter 
Benutzung eines Adreßzeigers an der Systemadresse $0361 
(ADR_EXP0). 

Vor dem Aufruf eines Programms wird im MAIN-Rahmen ein 
sogenanntes WARMFLAG, welches die Systemadresse $0360 hat, 
auf 0 zurückgesetzt. 


Wird nun zu Beginn eines aufgerufenen Programms seine 
Ansprungadresse aus dem Zeiger ADR_PRP0 in den Zeiger ADR_EXP0 
übernommen, so führt jeder Programmabbruch sofort wieder ins 
aufgerufene Programm zurück. Es braucht am Anfang des Programms 
also nur noch abgetestet zu werden, ob es zum erstenmal 
aufgerufen wird und initialisiert werden muß, oder ob es sich um 
einen Wiedereintritt handelt. Dies läßt sich über das WARMFLAG 
steuern; wird es am Anfang des Programms eingeschaltet, läßt 
sich daran der Wiedereintritt erkennen und die Initialisierungs- 
routine umgehen. Alle Variablen bleiben so erhalten. 


Bleibt als einziges Problem der tatsächliche Rücksprung in den 
MAIN-Rahmen (QUIT). Dies ist über eine Kl einst-Assemb1er-Routine 
möglich, die ein 65XX-JUMP zum MAIN-Rahmen ausführt, möglich. 
Nähere Details können Sie dem in Abschnitt 8 wiedergegebenen 
Listing des Editor-Programms entnehmen. 


Mit diesen Betrachtungen kann das Kapitel 4 mit dem Hauptthema 
dieses Handbuches, dem Pascal-Compi1 er, abgeschlossen werden. 
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5 DER &SXX-ABBEMBLER 

Der 65XX-Assemb1 er ist harmonisch in den Gesamtrahmen von PROFI 
PASCAL eingefügt- Innerhalb dieses Systems stellt er jedoch ein 
vollkommen eigenständiges Programm dar und ist nicht zu 
verwechseln mit dem im Compiler integrierten Assembler-Segment. 
Dieses ist vielmehr umgekehrt aus dem Assembler hervorgegangen 
und für den Compiler angepaßt worden. Der hier beschriebene, 
eigenständige Assembler übersetzt (assemb1iert) völlig losgelöst 
von der übrigen Pascal-Umgebung 65XX-Assemb1er-Quel1en in 
lauf fähigen 65XX-Maschinencode. 

Dabei spielt es natürlich keine Rolle, daß der Assembler selbst 
ein Pascal-Programm ist. Ich erwähne dies auch nur, um allen 
Skeptikern unter Ihnen zu zeigen, daß mit dem PROFI PASCAL - 
System auf dem C64 durchaus umfangreiche Systemprogrammierungen, 
die auch von der Laufzeit her akzeptabel sind, zu erstellen. 

Die Stärke des Assemblers zeigt sich vor allem beim Assemblieren 
umfangreicher Quell texte. Bei diesen ist er durch die als 
binärer Baum angelegte Label liste jedem in der Regel linear 
suchenden Maschinensprache-Assembler überlegen. Nur bei 
Programmen, die wenige Zeilen umfassen, ist er durch den großen 
Programmüberbau zwangsläufig langsamer als herkömmliche 
Assembler. Das Paradebeispiel für die Leistungsfähigkeit des 
Assemblers ist das in Maschinensprache formulierte Runtime-Paket 
von PROFI PASCAL, das mit mehr als 8 KBytes Programmcode aus 
etwa 200 KBytes Assemb1er-Quel1programm, aufgeteilt in 7 Einzel¬ 
files, generiert wird. 

Ein weiterer Vorteil des Assemblers dürfte die Tatsache sein, 
daß durch das Generieren des Maschinencodes in Form eines 
unmittelbar auf der Diskette abgespeicherten Files keinerlei 
Spei eherkol1isionen beim Assemb1ierVorgang auf treten. Der 
spätere Programmspeicherplatz spielt beim Assemblieren keine 
Rolle und es brauchen keinerlei Einschränkungen in Kauf genommen 
zu werden. 

Die folgenden Abschnitte erläutern Ihnen die praktische Arbeit 
mit dem Assembler. 
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3.1 DER AUFBAU DEB QUELLTEXTEB 

Dieses Thema wurde bereits im Zusammenhang mit dem Editor 
aufgegriffen und in Abschnitt 3.3 erörtert. An dieser Stelle 
möchte ich dennoch kurz die wichtigsten Gesichtspunkte 
wiederholen, um Ihnen unnötiges Suchen und Nachschlagen zu 
ersparen. 

Der Assembler kann die ihm als Textfile anzubietenden 
Quellprogramme nur dann einwandfrei in 65XX-Maschinencode 
übersetzen, wenn die Quelltexte einer bestimmten Form gerecht 
werden. Diese spaltenweise ausgerichtete Form sieht für die in 
einer Assemblertextzei1e auf tretenden Sprachelemente bestimmte 
Felder vor. Die Lage der Felder orientiert sich am rechten Ende 
der Zeilennummer, die aus diesen Gründen immer 4-atellig gewählt 
werden sollte. Bei kleinerer Stellenzahl kann sie durch führende 
Nullen 4-stellig eingegeben werden. Die Lage der Felder und die 
in ihnen unterzubringenden Sprachelemente sind in folgendem 
Schema nochmals erläutert: 

1 2 3 

-> Spaltenposition: ....5....0....5....0....5....0....5.. 

-> Textzeile : ZZZZ LLLLLLLL III 00000000... 


Position 1..4 <1111 ■ Zeilennummer) 


Dieses Feld nimmt die Zeilennummer 
größer - je nach Zeilennummer - 
folgenden Felder analog nach vorne 


auf. Wird es kleiner oder 
, so verschieben sich die 
oder hinten. 


Position 5 (Leerzeichen) 

In dieses Feld ist zur Trennung der Zeilennummer vom darauf¬ 
folgenden Labelfeld ein Leerzeichen einzugeben. 
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Position 6..13 (LLLLLLLL = Labelfeld) 

Dieses Feld enthält die Labels, mit denen bestimmte Stellen 
in einem Assemb1 er-Programm symbolisch gekennzeichnet sind. 
Die Labels sind linksbündig einzutragen. Als Labels sind alle 
Bezeichner (Identifier) zugelassen, die sich nach den 
Bildungsregeln für Pascal-Bezeichner konstruieren lassen. 
Diese lauten: 

* 8 signifikante Zeichen 

* Anfangszeichen: Buchstabe 

* Restzeichen: Buchstaben, Ziffern und/oder (ASCII $5F) 


Position 14 (Leerzeichen) 

In dieses Feld wird wieder ein Leerzeichen zur Trennung des 
Labelfeldes vom darauffolgenden Instruktionsfeld eingetragen. 


Position 15..17 (III = Instruktions- bzw. Operatorfeld) 

Dieses Feld enthält die eigentliche, mnemotechnisch 
abgekürzte 65XX-Maschineninstruktion. Die Abkürzungen 

entsprechen den von Commodore für 65XX-Assemblerprogramme 
festgelegten Definitionen. Sie werden in Abschnitt 5.2 näher 
erläutert. Neben diesen vom Assembler unmittelbar in 65XX — 
Maschinencode zu übersetzenden Instruktionen werden aber auch 
die in Abschnitt 5.4 noch vorzustellenden Pseudo-Befehle in 
dieses Feld eingegeben. 

Position 18 (Leerzeichen) 

In dieses Feld ist wieder ein Leerzeichen vorzusehen, welches 
das Instruktionsfeld vom folgenden Operandenfeld trennt. 
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Position 19 -ff. (OOOOOOOO... = Operandenfeld) 

In Spalte 19 beginnt das üperandenfeld. In ihm sind die zur 
Operation gehörenden Operanden einzusetzen. In erster Linie 
handelt es sich dabei um symbolische oder absolute 
Adreßangaben, die durch ihre in Abschnitt 5.3 zu besprechende 
Syntax bestimmte Adressierungsarten definieren. 


Hinter dem Operandenfeld können Kommentare angegeben werden. 
Falls ganze Kommentarzeilen eingefügt werden sollen, genügt es, 
wenn sie mit einem Semikolon ('/') beginnen. 


3.2 BEFEHLSVORRAT 

Der in PROFI PASCAL integrierte 65XX-Assembler akzeptiert im 
Instruktionsfeld einer Assembler-Programmzei1e alle mnemo¬ 
technischen CPU-Befehle (Operationscodes) in der für die 65XX- 
CPU vereinbarten Form. Darüber hinaus ist eine Anzahl von 
Pseudo-Instruktionen vorgesehen, die aus syntaktischen Gründen 
alle mit einem Punkt ('.') beginnen. 


Sämtliche 65XX-CPU-Instruktionen <Operationscodes) sind in der 
auf den drei folgenden Seiten wiedergegebenen Übersicht 
zusammengestel1t: 
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ADC (Add memory to accumulator with carry) 

Addition des Speichers zu Akku und Carry 

AMD ("And" memory with accumulator) 

Logische Und-Verknüpfung zw. Speicher und Akku 

ASL (Shift left one bit (memory or accumulator)) 

Arithmetisches Linksschieben (Speicher oder Akku 

BCC (Branch on carry clear) 

Verzweigung falls Carry = 0 

BCS (Branch on carry set) 

Verzweigung falls Carry = 1 

BEQ (Br anch on result zero) 

Verzweigung falls Ergebnis = 0 

BIT (Test bits in memory with accumulator) 

Bit-Vergleich zwischen Speicher ünd Akku 

BMI (Branch on result minus) 

Verzweigung falls Ergebnis negativ 

BHE (Branch on result not zero) 

Verzweigung falls Ergebnis <> 0 

BPL (Branch on result plus) 

Verzweigung falls Ergebnis positiv 

BRK (Force break) 

Programmunterbrechung 

BVC (Branch on overflow clear) 

Verzweigung falls Überlauf = 0 

ByS (Branch on overflow set) 

Verzweigung falls Überlauf = 1 

CLC (Clear carry f1ag) 

Carry wird 0 

CLD (Clear decimal mode) 

Dezimalmodus wird gelöscht 

CL1 (Clear interrupt disable bit) 

Interrupt wird erlaubt 

CLV (Clear overflow f1ag) 

Überlauf wird 0 

CMP (Compare memory and accumulator) 

Vergleich zwischen Speicher und Akku 

CPX (Compare memory and index X) 

Vergleich zwischen Speicher und X-Register 
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CPY (Compare memory and index Y) 

Vergleich zwischen Speicher und Y-Register 

DEC (Decrement memory by one) 

Speicher wird um 1 dekrementiert 

DEX (Decrement index X by one) 

X-Register wird um 1 dekrementiert 

DEY (Decrement index Y by one) 

Y-Register wird um 1 dekrementiert 

EOR ("Exclusive-or" memory with accumulator) 

Logische EOR-Verknüpfung zw. Speicher und Akku 

INC (Increment memory by one) 

Speicher wird um 1 inkrementiert 

1HX (Increment index X by one) 

X-Register wird um 1 inkrementiert 

IHY (Increment index Y by one) 

Y-Register wird um 1 inkrementiert 

JMP (Jump to new location) 

Unbedingter Sprung 

JSR (Jump to new location saving raturn address) 
Unbedingter Unterprogrammaufruf 

LDA (Load accumulator with memory) 

Akku wird mit Speicherinhalt geladen 

LDX (Load index X with memory) 

X-Register wird mit Spei eherinhalt geladen 

LDY (Load index Y with memory) 

Y-Register wird mit Spei eherinhalt geladen 

LSR (Shift right one bit (memory or accumulator)) 

Logisches Rechtsschieben von Speicher oder Akku 

HOP (No Operation) 

Leerkommando 

ORA ("Or" memory with accumulator) 

Logische Oder-Verknüpfung zw. Speicher und Akku 

PHA (Push accumulator on stack) 

Akku wird auf Stack gesichert 

PHP (Push processor Status on stack) 

Status wird auf Stack gesichert 

PLA (Pull accumulator from stack) 

Akku wird vom Stack zurückgeladen 
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PLP 

(Pull processor statu* from «tack) 
Status wird vom Stack zurückgeladen 


ROL 

(Rotate one bit left (memory or accumulator)) 
Ringschieben nach links von Speicher oder Akku 

ROR 

(Rotate one bit right (memory or accumulator)) 
Ringschieben nach rechts von Speicher oder Akku 

RTI 

(Return from interrupt) 

Rücksprung aus Interrupt 


RTS 

(Return from subroutine) 

Rücksprung aus Unterprogramm 


SBC 

(Subtract memory from accumulator with 
Subtraktion des Speichers von Akku und 

carry) 

Carry 

SEC 

(Set carry flag) 

Carry wird 1 


SED 

(Set decimal mode) 

Dezimalmodus wird eingeschaltet 


SEI 

(Set interrupt disable statu*) 
Interrupt wird verboten 


STA 

(Store accumulator in memory) 

Akku wird abgespeiehert 


STX 

(Store index X in memory) 

X-Register wird abgespeiehert 


STY 

(Store index Y in memory) 

Y-Register wird abgespeiehert 


TAX 

(Transfer accumulator to index X) 

Akku wird in das X-Register geschoben 


TAY 

(Transfer accumulator to index Y) 

Akku wird in das Y-Register geschoben 


TSX 

(Transfer stack pointer to index X) 

Stackzeiger wird in das X-Register geschoben 

TXA 

(Transfer index X to accumulator) 
X-Register wird in den Akku geschoben 


TXS 

(Transfer index X to stack pointer) 

X-Register wird in den Stackzeiger geschoben 

TYA 

(Transfer index Y to accumulator) 
Y-Register wird in den Akku geschoben 
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5.3 ADREBBIERUNGBARTEN 

Die in Abschnitt 5.2 vorgestel1ten CPU-Instruktionen können auf 
die zu verarbeitenden Operanden in vielen Fällen mit 

verschiedenen Adressierungsarten zugreifen. Gerade bei der 65XX- 
CPU sind die Adressierungsarten sehr vielseitig und ermöglichen 
trotz der relativ geringen Anzahl an Operationscodes sehr 
effizientes Programmieren in Maschinensprache. Zwar liegt bei 
einem Teil der OPCodes die Adressierungsart von vorneherein fest 
das gilt in erster Linie für die Befehle mit sogenannter 
Implied-Adressierung -, doch beim weitaus größeren Teil muß 
durch die syntaktische Darstellung des Operanden die 
Adressierungsart explizit dem Assembler angezeigt werden. 


Die verschiedenen Adressierungsarten und ihre symbolische 
Darstellung ist folgender Zusammenstellung zu entnehmen. Der 
dabei benutzte Begriff LABELEXPRESSION steht für den jeweiligen 
Operanden und kann als Ausdruck auf mehrere Arten definiert 
werden. Diese Ausdrücke lassen sich bilden 

* aus symbolischen Labels, 

* aus dezimalen oder hexadezimalen Zahlenwerten, 

* aus ASCII-Zeichen in Form von CHAR-Konstanten und 

* aus den Funktionen H,‘ und die das High- bzw. 

Low-Byte des nachfolgenden Argumentes liefern. 

Die genannten Elemente können Sie mit und ' additiv bzw. 


subtraktiv miteinander 

verknüpfen. Beispiele für 

Label- 

expressions sind: 





OUTPUT 

$D 

0 

L f BUFFER 


I_0_P0RT 

$001A 

13 

H,MEMORY 


TIMER1 

$FFFE 

1024 

H,10000 


'X ' 


ADRE^SE+1 

LBL-2 


L.BUFFER+41 

EXIT+$10 

$400+65+$F000- 

-HEM_ADR 



- 216 - 



PROFI PASCAL 


Die 65XX-CPU kennt die folgenden Adressierungsarten: 


IMP (Implied).Syntax: kein Operandenteil 

ACC (Accumul ator ).Syntax: A 

IMM (Immediate).Syntax: #LABELEXPRESSION 

ABS (Absolute).Syntax: LABELEXPRESSIONS 

ABX (Absolut, X).Syntax: LABELEXPRESSION, X 

ABY (Absolut, V).Syntax: LABELEXPREBSI ON,V 

ZPG (Zero Page).Syntax: «LABELEXPRESSION 

ZPX (Zero Page,X).Syntax: «LABELEXPRESSION, X 

ZPV (Zero Page, Y).Syntax: «LABELEXPRESSION, Y 

IXX ( Index ed , X ).Syntax: fLABELEXPRESSION, X) 

IXY ( (Indexed) ,Y).Syntax: fLABELEXPRESSI0N> ,Y 

IND (Indirect).Syntax: fLABELEXPRESSIONJ 

REL (Relativ).Syntax: LABELEXPRESSION 


Die für die jeweiligen Operationscodes zu gelassenen 
Adressierungsarten können folgender Tabelle entnommen werden: 
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3.4 P8EUDG-ÜPERATIQN8CQDEB 


Die vom Assembler akzeptierten Pseudo-Instruktionen (Pseudo- 
Operationscodes) dienen sowohl der Assemb1er-Steuerung als auch 
der Code-Generierung. Alle OPCodes beginnen einheitlich mit 
einem Punkt Sie haben folgende Bedeutung: 


Steuerunqs-"PSEUDOS" 

• BA (Begin Assembly) 

Syntax: .BA ADRESSEXPRESS1ON 

Mit dieser Anweisung wird die Startadresse für den zu 
generierenden Maschinencode definiert. 

ADRESSEXPRESSION steht für eine absolute Adreßangabe in 
dezimaler oder hexadezimal er Form oder für einen Ausdruck, 
der bereits definierte Labels verwendet. In Ausdrücken können 
mit * oder — vorgenommene Verknüpfungen zwischen Labels 
und/oder absoluten Adressen bzw. Zahlenwerten erfolgen. 


ACHTUNG ! 

Ausdrücke dürfen keine Leerzeichen enthalten. Der mit einem 
Leerzeichen abgetrennte Teil eines Expressions wird vom 
Assembler als Kommentar gewertet. 


.CT (ConTinue with ...) 

Syntax: .CT FILENAHE 

Diese Anweisung kettet aufgeteilte Quellprogramme aneinander. 
Sie gibt dem Assembler die Information, die Assemblierung mit 
dem Quellfile 

FILENAME auf dem derzeitigen Arbeitslaufwerk, das beim Start 
des Assemblers definiert wurde, weiter fortzusetzen. 
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-DL (Define Label) 

Syntaxs .DL ADRESSEXPRESSION 

Mit dieser Anweisung wird -für den Assembler die Verknüpfung 
zwischen einem symbolisch zu verwendenden Label-Namen und der 
durch 

ADRESSEXPRESSION bestimmten Adresse hergestellt. Die 
Definition für ADRESSEXPRESSION erfolgte bereits unter .BA. 

.EN <ENd of assembly) 

Syntax: .EN 

Dies ist das Abschlußzeichen für die Assemblierung. Der 
Assembler beendet das Programm beim Auftreten dieses 
"PSEUDOS". Wird auf diese Pseudo-Instruktion ein Label 
gesetzt (z.B .ENDE .EN), kann über die Ausgabe des Label- 

List ings zum Schluß des Assemblierens das Ende des erzeugten 
Maschinenprogramms ermittelt werden. 


.EQ (if EQual 0) 

.NE (if Not Equal 0) 

••• (end of condition) 

Syntax: .EQ ADRESSEXPRESSION 
.NE ADRESSEXPRESSION 
... ADRESSEXPRESSION 

Mit diesen drei Pseudo-Instruktionen wird die bedingte 
Assemblierung vorgenommen. Die damit zusammenhängenden 
Detailfragen sind bereits in Abschnitt 3.3 erläutert worden. 
Eine weitere Diskussion erübrigt sich an dieser Stelle. 
ADRESSEXPRESSION wurde bereits unter .BA definiert. 
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.OC (Objectcode Clear) 

.OS (Objectcode Set) 

Syntax: . OC 
.OS 


Die beiden Pseudo-Instruktionen schalten die Generierung des 
Maschinencodes durch den Assembler aus (,0C) und ein (.OS). 
Beim Start ist das Generieren des Codes eingeschaltet 
(Default). Diese Option ermöglicht das Einbeziehen externer 
Maschinenprogrammtei1e zwecks Ermittlung der Label-Adressen, 
um sie im eigentlichen Programm automatisch ohne explizite 
Definition mit .DL verwenden zu können, während der externe 
Programmcode unterdrückt wird. Nur das gewünschte Programm 
wird durch Einfügen des "PSEUDOS" .OS gezielt generiert. 


Proarammier—"PSEUDOS" 

-BY (BVte (table)) 

Syntax: .BY BYTE LISTE 

über diese Pseudo-Instruktion können beliebige Bytefolgen in 
den laufenden Maschinencode eingefügt werden. Die Anzahl der 
Bytes richtet sich dabei nach dem Umfang der Byte-Liste, die 
mindestens 1 Byte enthalten muß und maximal bis zum Ende der 
Zeile reichen kann. Sollen mehr Bytes generiert werden, sind 
in den folgenden Zeilen weitere . BV'-"PSEUDOS" aufzunehmen. 
BYTELISTE steht für die verschiedenen Möglichkeiten zur 
Angebe der Bytes, die dezimale und hexadezimale Angaben, 
Einzelcharacters und Strings enthalten kann, wie z.B.: 

.BY 0 123 255 
.BY 0 $80 $FF 
.BY 'A' 'C ' ' E‘ U' 

.BY PROFI PASCAL' 

.BY 0 'A' $80 'DATA' 255 

Das Zeilenendezeichen oder das Kommentarzeichen ('/') beendet 
die Byteliste in der jeweiligen Zeile. 
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.DS (Displacement) 

Syntax: .DS ADRESSEXPRESSION 

Durch diese Anweisung können größere Lücken (Speicher¬ 
bereiche) im Maschinencode erzeugt werden. Der Assembler 
generiert bei diesem "PSEUDO" den Code *00 in der durch 
ADRESSEXPRESSION bestimmten Menge. Danach setzt er die 
Assemblierung mit der sich ergebenden Adresse in der nächsten 
Pragrammzeile fort. Die Definition ADRESSEXPRESSION erfolgte 
bereits unter .BA. 


.SA (Set Address) 

Syntax: .SA LABELEXPRESSION 

Der Assembler generiert durch diese Instruktion eine 2-Byte- 
Adresse und schiebt sie in der üblichen Notation (Low-order- 
Byte, High-order-Byte) in den laufenden Maschinencode. Mit 
diesem "PSEUDO" lassen sich bequem Adreßtafeln aufbauen. 
LABELEXPRESSION ist der aus beliebigen Labels und/oder 
Absolutadressen (dezimal oder hexadezimal) - gegebenenfalls 
mit * oder - verknüpfte - gebildete Ausdruck. Daraus ergibt 
sich die vom Assembler zu verwendende Adresse. 


Die aufgeführten Pseudo-Instruktionen bilden zusammen mit den in 
Abschnitt 5.2 behandelten CPU-Instruktionen den gesamten vom 
Assembler verarbeitbaren Befehlsvorrat. Weitere Operationscodes 
oder Anweisungen sind nicht implementiert. Sollten Sie in diesem 
Zusammenhang die Möglichkeit der Makrodefinition vermissen, so 
bedenken Sie, daß Sie durch Zusammenbinden verschiedenster 
Maschinenspracheroutinen in einem Pascal-Rahmen und der damit 
verbundenen ParameterVersorgung mehr als gleichwertigen Ersatz 
haben. 
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S.S ABLAUF DES A8BEMBLIERENB/0PTIONEN 

65XX-Assembler-Quel1 Programme werden mit dem im PRAOFI PASCAL - 
System verfügbaren Assembler übersetzt. Dieser wird mit dem ' A' - 
Kommando aus dem MAIN-Rahmen aufgerufen. Der Assembler erwartet 
das Assembler-Quel1programm (Source) als Textfile auf der 
Diskette. Aus diesem Grunde fragt das System nach Eingabe des 
'A'-Kommandos sowohl nach dem Namen des zu assemblierenden 
Programms als auch anschließend nach dem Laufwerk, in dem sich 
die zugehörige Diskette befindet: 

‘F1LE-TITLE = ?' 

' DRIVE(MAP) = x‘ 

Als Vorschiagswert x wird bei der Laufwerksangabe das zuletzt 
benutzte Laufwerk vorgegeben, so daß in der Regel nur mit einem 
RETURN geantwortet werden muß. Diese Angabe definiert das 
Arbeitslaufwerk für die Assemblierung, d.h. das erzeugte Code¬ 
file wird auf derselben Diskette aufgezeichnet. 


Anstelle des aktuellen File-Namens kann bei der betreffenden 
Frage auch mit geantwortet werden, was den Assembler an¬ 
weist, das unmittelbar zuvor mit dem Editor bearbeitete Textfile 
zu assemblieren. Für die jetzt überflüssige Laufwerksangabe 
bittet das System um Bestätigung unter Nennung des zuvor 
verwendeten File-Namens und der zugehörigen Laufwerksnummer: 

'CONFIRM "FILENAHE,DRIVE_NR"? N/Y‘ 

Bei fehlender Bestätigung oder sonstigen fehlerhaften bzw. 
ungültigen Angaben wird der weitere Aufruf des Assemblers 
ignoriert und Sie verbleiben auf der Kommandoebene des MAIN- 
Rahmens, der dann sofort wieder für neue (korrekte) Kommandos 
bereitsteht. 
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Wenn alle Angaben in einwandfreier Form vorgenommen wurden, 
erfolgen nun das Laden des Assemblers von der Systemdiskette in 
den Rechner und dessen weiterer Ablauf. Dieser Ladeprozeß wird 
mit einer in dem File LGADDAT befindlichen Hilfsroutine 
vorgenommen. Das bedingt, daß neben dem Assembler (File 
C_ASMBLR> auch das File LOADDAT auf der Systemdiskette im Drive 
0 verfügbar sein muß. Sollte das angegebene Textfile nicht im 
betreffenden Laufwerk verfügbar sein, so werden entsprechende 
Fehlermeldungen generiert und die Programmkontrolle kehrt zur 
erneuten Kommandoeingabe in den MAIN-Rahmen zurück. Für den 
Fall, daß es sich bei dem angegebenen File nicht um ein Textfile 
handelt, wird, ebenfalls nach entsprechender Fehlermeldung, der 
Assembler wieder verlassen und auf die MAIN-Ebene zurück¬ 
gesprungen . 


Nach dem Initialisieren des Assemblers und dem öffnen des 
Quel1programmfi1 es meldet sich der Assembler mit 

* C=64 65XX-ASSEMBLER 5.3 * 


und fragt mit 

LIST ING ? Y/N' 

ob er beim Assemblieren ein Programmlisting erzeugen soll, das 
dann nicht nur den ursprünglichen Quelltext wiedergibt, sondern 
auch die sich ergebenden Spei eheradressen und den Maschinencode 
jeweils in Hex-Notation. Dabei werden Zeilen, die durch das 
Hinzufügen dieser Informationen mehr als 80 Zeichen erhalten, am 
rechten Ende im Bereich eventueller Kommentare abgeschnitten. 
Die weitere Abfrage des Assemblers 

HARDCOPY ? Y/N' 

ermöglicht nach Eingabe von 'V" (= Yes) die Wiedergabe des 

Outputs während des Assemb1ierens auf einem Drucker im Gegensatz 
zu der normal erweise üblichen Bildschirmausgabe. 
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Die gerätespezifischen Angaben -für den Drucker (Adressen) werden 
gegebenenfalls mit 

' OUTPUT-DVC = 4,0' 

unter Vorgabe der Standardadressen 4,0 erfragt. Nach diesen 
Eingaben beginnt der Assembler mit P/ISS 1‘ den Assemblier- 
vorgang. 


Während des Assemblierens wird das Assemb1er-Programm auf 
eventuelle syntaktische oder formelle Fehler abgetestet. Beim 
Auftreten solcher Fehler erfolgt eine Fehlermeldung, die den 
Fehler im Klartext beschreibt und die zugehörigen Programmzei 1en 
wiedergibt. Beispielsweise wird bei einer Zeile 

'2005 1_BUFFER LDA #' 1' 
die Fehlermeldung 

1LLEG. CHARACTER IN LABEL ERROR IN 
‘2005 1_BUFFER LDA U'l' 


generiert. 


Wurde der Output nicht auf einen Drucker geleitet, wartet nun 
der Assembler auf eine Fehlerbestätigung durch Betätigen der 
RETURN- Taste, damit nicht durch weitere Bi 1dschirmausgaben die 
Meldung verloren geht. 


Die in einem Assemb1er-Programm möglichen syntaktischen und 
formellen Fehler sowie die vom Assembler generierte Fehler¬ 
meldung sind in folgender Zusammenstellung aufgeführt: 
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Benutzung nicht zugelassener Zeichen in einem Labelnamen gemäß 
Syntax -für Bezeichner: 

ILLEG. CHARACTER IN LABEL ERROR IN 

Benutzung nicht definierter mnemotechnischer Instruktionen: 
'ILLEG. NNEMONIC ERROR IN ..' 

Benutzung nicht definierter Pseudo-Instruktion: 

ILLEG. PSEUDO ERROR IN ..' 

Benutzung unzulässiger Operanden: 

ILLEG. OPERAND ERROR IN ..' 

Benutzung unzulässiger Byte-Definitionen in Bytelisten: 

ILLEG. BYTE-DEFINITION ERROR IN ..' 

Benutzung eines nicht definierten Labels: 

'LABEL NOT FOUND ERROR IN 

Wiederholte Definition desselben Labels: 

‘DUPLICATE LABEL ERROR IN ..' 

Benutzung unzulässiger Adressierungsarteni 
ILLEG. ADDR. MODE ERROR IN 

Benutzung unzulässiger Indexregister in der Adressierung: 

ILLEG. INDEX ERROR IN 

Benutzung unzulässiger Adressen bei der Zero-Page-Adressierung: 
ILLEG. ADDRESS ERROR IN 

Programmierung zu großer relativer Sprünge: 

‘LONG BRANCH ERROR IN 

Fehlende Abschiußmarkierung mit .EN in Assembler-Programmeni 
'.EN MI SS ING ERROR IN 
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Wird der erste Paß ohne Fehlermeldung abgearbeitet, meldet der 
Assembler dies mit 

PASS 1 OK.' 

und startet ' P/ISS 2' zur endgültigen Erzeugung des 
Maschinencodes, der zunächst als temporäres File mit Namen 
CODDAT auf der Diskette angelegt wird. Auch in Paß 2 können noch 
Fehler auftreten (LONG BRANCH, LABEL NOT FOUND usw.), die wie 
beim ersten Paß angezeigt werden. 


Wird auch der zweite Paß fehlerfrei durchlaufen, generiert der 
Assembler die Meldung: 

'PASS 2 OK.' 

'-.> 0 ERRORS < ' 

Anschließend fragt er mit 

TITLE OF OPJECT-FILE = ' 

nach dem endgültigen File-Namen für das zunächst als CODDAT 
bezeichnete Objektcodefile. Nicht zugelassene Bezeichner werden 
bei der zu tätigenden Eingabe zurückgewiesen. 


Nach der Änderung des Directory-Eintrages für das Objektcodefile 
wird nachgefragt, ob die Labelliste ebenfalls auf der Diskette 
abgespeiehert werden soll: 

LABEL-FILE TO DISC ? Y/N' 

Wird dies bejaht ('>'*), muß auch der zugehörige File-Name 
definiert werden: 

TITLE OF LABEL-FILE = ', 

wobei wiederum syntaktisch nicht * zugelassene File-Namen 
zurückgewiesen werden. 
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Mit der Abfrage: 

'LABEL-FILE TO PRTR ? Y/N' 

bietet der Assembler anschließend die Option, die Labelliste 
ausdrucken zu lassen. Wird dies durch Eingabe von ‘Y‘ gewünscht, 
muß - falls noch nicht geschehen - die Druckeradresse angegeben 
werden, wobei die Standardangaben 4,0 vorgegeben werden: 

' OUTPUT-DVC - 4,0‘ 

Der Assembler gibt nun - falls es so gewünscht wurde - das 
Labelfile als Disketten- und/oder Druckfile aus. Im Anschluß 
daran kann durch Bestätigen ('V'') der Frage 

' LABEL-LI ST 2 HG ? Y/N' 

die Ausgabe der Labelliste auf den Bildschirm geleitet werden. 
Das Listen der alphabetisch geordneten Labels zusammen mit ihren 
Adreßdefinitionen kann durch Betätigen der Leertaste (Space) 
angehalten und durch erneutes Betätigen wieder fortgesetzt 
werden. Wird jedoch statt dessen die RUN/STOP-T aste betätigt, 
wird die Ausgabe des Listings abgebrochen und die Programm¬ 
kontrolle kehrt in den MAIN-Rahmen zurück. Ansonsten verbleibt 
der Assembler in vorstehender Abfrageschleife mit der genannten 
Ausgabemöglichkeit der Labelliste bis mit ' N‘ der Assembler 
verlassen und zum MAIN-Rahmen zurückgekehrt wird. 

Traten im Verlauf des zweiten Passes Fehler auf, wird das 
temporäre Objektcodefile CODDAT gelöscht. Auf die Label liste 
kann jedoch - wie beschrieben - zurückgegriffen werden. Beim 
Verlassen des Assemblers wird, wie beim Auftreten eines Fehlers 
im ersten Paß, automatisch der Editor geladen und gestartet. 
Dieser lädt seinerseits die fehlerhafte Assemb1er-Source zwecks 
Editierens in den Speicher. Von dort kann über den MAIN-Rahmen 
der Assembler erneut aufgerufen werden. 

Des weiteren haben Sie im Verlaufe des gesamten Assemblier- 
vorganges die Möglichkeit, durch Betätigen der RUN/STOP -Taste 
das Assemblieren abzubrechen, was mit 
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' BREAK 


angezeigt wird. Auch jetzt werden der Editor und das Quellfile 
nachgeladen. 


Anhand des folgenden kleinen Programmbeispiels werden der Aufbau 
eines Assemb1er-Programms und die 


sowie der Label liste demonstriert 
von etwa einer Sekunde den 
ausschalten. 


1000 

DEMO 

.BA 

T0800 

1005 

5 



1010 

CPUPORT 

. DL 

1 

1015 

VICREG17 

.DL 

SD000+17 

1020 

MERKER 

.DL 

*FFOO 

1025 

i 



1030 

START 

LDY 

#0 

1035 


STY 

MERKER 

1040 

L00P0 

JSR 

SWITCH 

1045 


DEC 

MERKER 

1 050 

LOOP 1 

JSR 

DUMMY 

1055 


DEX 


1060 


BNE 

L00P1 

1065 


DEY 


1070 


BNE 

LOOP 1 

1075 


JMP 

LOOPO 

1080 

5 



1085 

SWITCH 

LDA 

♦CPUPORT 

1090 


ORA 

#1 

1095 


STA 

♦CPUPORT 

1 100 


LDA 

VICREG17 

1 105 


EOR 

#$10 

1 1 10 


STA 

VICREG17 

1115 


LDA 

♦CPUPORT 

1 120 


AND 

#*FC 

1 125 


STA 

♦CPUPORT 

1 130 

DUMMY 

RTS 


1 135 

; 



1 140 

ENDE 

EN 



Ausgabe des Programmlistings 
Das Programm soll im Rhythmus 
Bildschirm des C64 ein- und 


;DEMGPROGRAMM SW ITCH-SCREEN 

;BESTIMMT SPEICHERKONFIG. 

;BIT 4 SCHALTET SCREEN AUS 
;MERKZELLE FÜR SCREEN-MODUS 

5 ZÄHLER RÜCKSETZEN 
jMERKZELLE INITIALISIEREN 
;SCREEN-MODUS UMSCHALTEN 
;IN BIT 0 MERKEN 
;VERZÖGERUNG UM 11 CPU-TAKTE 
;ZÄHLEN LOWBYTE 
5 256-MAL 

jZÄHLEN HIGHBYTE 
;256-MAL 

;UMSCHALTEN, HIER GGF. 

;ABBRUCHBEDINGUNG PROGR. 

;I/O-BANK EINSCHALTEN 


;BIT 4 INVERTIEREN 


$ RAM-BANK EINSCHALTEN 
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1000 

$0800 




DEMO 

.BA 

$0800 

{DEMOPROGRAMM SWITCH-SCREEN 

1005 

$0800 




1 




1010 

$0800 




CPUPORT 

.DL 

1 

{BESTIMMT SPEICHERK0NFI6. 

1015 

$0800 




VICREG17 

.DL 

$D000+17 

{BIT 4 SCHALTET SCREEN AUS 

1020 

$0800 




MERKER 

.DL 

$FFOO 

|MERKZELLE FÜR SCREEN-MODUS 

1025 

$0800 




1 




1030 

$0800 

AO 

00 


START 

LDY 

10 

;ZÄHLER RÜCKSETZEN 

1035 

$0802 

BC 

00 

FF 


STY 

MERKER 

{MERKZELLE INITIALISIEREN 

1040 

$0805 

20 

17 

08 

LOOPO 

JSR 

SWITCH 

{SCREEN-MODUS UMSCHALTEN 

1045 

$0808 

CE 

00 

FF 


DEC 

MERKER 

j IN BIT/ 0 MERKEN 

1050 

$080B 

20 

2 B 

08 

LOOP 1 

JSR 

DUMMY 

{VERZÖGERUNG UM 11 CPU-TAKTE 

1055 

$080E 

CA 




DEX 


|ZÄHLEN LOWBYTE 

1060 

$080F 

DO 

FA 



BNE 

LOOP 1 

{256-MAL 

1065 

$0811 

88 




DEY 


{ZÄHLEN HIGHBYTE 

1070 

$0B 12 

DO 

F7 



BNE 

LOOP 1 

{256-MAL 

1075 

$0814 

4C 

05 

08 


JMP 

LOOPO 

|UMSCHALTEN, HIER 66 F. 

1080 

$0817 




5 



5 ABBRUCHBEDINGUN 6 PROGR. 

1085 

$0817 

A5 

01 


SWITCH 

LDA 

»CPUPORT 


1090 

$0819 

09 

01 



ORA 

«1 

{I/O-BANK EINSCHALTEN 

1095 

$081B 

85 

01 



STA 

♦CPUPORT 


1100 

$081D 

AD 

11 

DO 


LDA 

VICRE617 


1105 

$0820 

49 

10 



EOR 

• $ 10 

{BIT 4 INVERTIEREN 

1110 

$0822 

8 D 

11 

DO 


STA 

VICREG17 


1115 

$0825 

A5 

01 



LDA 

♦CPUPORT 


1120 

$0827 

29 

FC 



AND 

«$FC 

(RAM-BANK EINSCHALTEN 

1125 

$0829 

85 

01 



STA 

♦CPUPORT 


1130 

$082B 

60 



DUMMY 

RTS 



1135 

$082C 




1 




1140 

$082C 




ENDE 

.EN 



PASS 

2 OK. 








— > 

0 ERRORS 

<- 

- 











labilliste 


CPUPORT 10001 DEMO 

$0000 

DUMMY $082B 

ENDE $082C LOOPO $0805 

L00P1 I080B MERKER $FFOO 

START $0800 

SWITCH $0817 VICRE617 $D011 
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6 DAS UTILITY 


Das Uti1ity-Programm stellt ein Software-Paket dar, das eine 
Vielzahl nützlicher Dienstprogramme in sich vereinigt. Diese 
Dienstprogramme ermöglichen eine komfortable Verwaltung der im 
PROFI PASCAL - System verwalteten Disketten und der unter 
Pascal-DOS auf ihnen abgespeicherten Files. Daneben gestatten 
Ihnen verschiedene monitorähnliche Routinen des Utilitys, das 
Arbeiten mit dem Gesamtsystem (C64 plus PROFI PASCAL) 
transparenter zu machen. Der C64 wird mit dem Utility zu einem 
auch in Maschinennähe leicht bedienbaren Rechner. 


Das Utility wird über das ' U '-Kommando aus dem MAIN-Rahmen 
geladen und gestartet. Der Ladevorgang wird mit der bereits 
mehrfach erwähnten Hilfsroutine im File LOADDAT vorgenommen, so 
daß sicherzustellen ist, daß neben dem Utility (File C_UTILIT) 
das File LOADDAT ebenfalls im System-Drive 0 vorhanden ist. 


Ein besonderer Vorteil des Utilitys besteht darin, daß sämtliche 
Operationen nach Laden des Programms im Stand-alone-Verfahren, 
d.h. ohne Zuhilfenahme fremder Routinen, ausgeführt werden 
können. Die Verfügbarkeit der Systemdiskette ist nach dem Start 
des Utilitys also nicht mehr erforder1ich. Nachdem sich das 
Utility initialisiert hat, meldet es sich mit der Ausgabe seines 
Kommandokatalogs wie folgt: 


* C=64 FILE-UTILITY 5.3 * 


COMMANDS = 

A(BVICE) 

B (LOCKTABLE.) 

C.(OPY) 

D(UPLICATE) 

E(NTERSECT) 

F(ETCHSECT) 

G (ETRAM.) 

I(NSERTADV) 


J(UMP) 
K(ILLTITLE) 
L(OCKFILE) 
M(AP/DRIVE) 
N(EHDISC) 
O(RGANIZE) 
Q(UIT) 
R(ENAME) 


S( TOREHEM) 

T(RNSFRMEM) 

U(NLOCKFI LE) 
I /(IEHMEM) 
U(RITEDIR) 

X(CLUDEBLC) 

Z(EROB LOCK) 
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An dem sich immer mit einem $ -Zeichen meldenden Cursor ist die 
Kommandoebene des Utilitys jederzeit erkennbar. Die im Utility 
verfügbaren Kommandos werden, wie von den anderen Kommandoebenen 
bereits bekannt, durch Eingabe des mit einem Buchstaben 
abgekürzten Befehls und einem anschließenden RETURN' 
aufgerufen. Auch alle anderen Eingaben werden stets mit der 
Betätigung der ' RETURN '-Taste abgeschlossen. Wie bereits von den 
anderen Kommandoebenen her bekannt, können alle numerischen 
Angaben in dezimaler Form oder mit einem ^-Zeichen markiert in 
Hex-Notation vorgenommen werden. 


Syntaktisch unzulässige Eingaben <z.B. falsche File-Namen) 
werden vom Utility generell mit der Meldung 

' 1LLEG. INPUT /' 

'EXECUTION NOT SUCCESSFUL /' 

zurückgewiesen. Syntaktisch richtige aber vom Zahlenwert her 
falsche Eingaben weist das Programm mit 

'INVALID INPUT' 

'EXECUTION NOT SUCCESSFUL /' 


z ur üc k. 


Bei verschiedenen Befehlen wird ein File- bzw. Diskettenzugriff 
erforder1ich, ohne daß explizit eine LaufWerksangabe vorzunehmen 
ist. In solchen Fällen erfolgt der Zugriff auf der Diskette, die 
sich im Arbeitslaufwerk befindet, was in den meisten Fällen mit 
einer Bestätigungsmeldung angezeigt wird. Nach dem Start des 
Utilitys ist der System-Drive 0 als Arbei tsl auf wer k. definiert. 
Es kann aber jederzeit mit dem 'H '-Kommando <* 'MAP') 
umdefiniert werden. 
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Hinsichtlich der Anwendung der im Utility verfügbaren Routinen 
ist zu sagen, daß sie recht unempfindlich gegen Feh1bedienung 
und gegen Eingabe unzulässiger Daten sind. Das Utility-Paket 
überwacht sehr streng die Plausibilität Ihrer Eingaben und weist 
alle zweifelhaften bzw. nicht eindeutig erkennbaren Kommando¬ 
eingaben und Parameterangaben mit entsprechenden Fehlermeldungen 
zurück. Andererseits müssen Sie aber bedenken, daß trotz aller 
Kontrolle gerade bei maschinennahem Arbeiten Manipulationen 
möglich sind, die — wenn Sie sich über eventuelles warnendes 
Nachfragen des Programms hinwegsetzen - fatale Folgen haben 
können. Bei einer nicht geringen Zahl von Kommandos kommt es zu 
Schreib/Lese-Zugriffen auf Disketten. Sollte hierbei ein 
Runtime-Fehler auf treten (z.B.: Diskette hat Schreibschutz- 
Label), dann wird zwar die entsprechende Runtime-Fehlermeldüng 
ausgegeben, aber die Programmkontrolle verbleibt im Utility 
(siehe hierzu auch Abschnitt 4.6). 


Zum Teil bieten die im Utility verfügbaren Befehle die 
Wahlmöglichkeit der Bi 1dschirmwiedergabe oder der Ausgabe auf 
einen Drucker. Die Adressierung der Drucker erfolgt im Utility 
mit dem Default-Wert 4,0, was aber jederzeit mit 

’QX,Y‘ 

geändert werden kann. Dabei definieren X die Geräteadresse und Y 
die Sekundäradresse. 


Bei der jetzt folgenden Besprechung der einzelnen Kommandos wird 
auf solche "Stolperstellen" gesondert hingewiesen. 
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6.1 DIE BEFEHLE DEB UTILITY8 

6.1.1 'A' (- ADVICE) 

Mit diesem Kommando können die zu einem File zusätzlich 
eingegebenen, anwenderspezifisehen Informationen abgerufen 
werden. Derartige Informationen können Sie über das noch zu 
besprechende '/'-Kommando des Utilitys eingeben. 


Nach Aufruf des '4'-Kommandos fragt das Utility mit 

' F1LE-TIT LE = ' 

nach dem Namen des Files, dessen Zusatzinformation ausgegeben 
werden soll. Das Utility sucht daraufhin auf dem Arbeitslaufwerk 
nach dem angegebenen File und gibt, falls eins unter diesem 
Namen vorhanden ist, die abgelegte Zusatzinformation wie folgt 
aus: 


' ADV ICE TO "FILENAME,DRIVE_NR ":' 
aktuelle Information 


Wurde keine Zusatzinformation zu diesem File abgelegt, so 
erscheint 


NO ADVICE INSERTED /' 


Falls kein File unter dem angegebenen Namen auf der Diskette 
verfügbar ist, wird dies mit 

‘TITLE NOT FOUND/' 

' EXECUT1ON NOT SUCCESSFUL /' 


angezeigt. 
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6.1.2 B' (- BLOCKTABLE) 

über das 'B'-Kommando läßt sich die Blockbelegungstafel der im 
Arbei tsl auf wer k befindlichen Diskette auf den Bildschirm 
ausgeben. Die Blockbelegungstafel ist die im Pascal-DOS 
verwaltete Ta-fel des Directorys, die über die Belegung und die 
Art der Belegung der einzelnen Blöcke einer Diskette Auskunft 
gibt. Die Diskette ist unter Pascal in 40 Blöcke mit je 4 KBytes 
eingeteilt. Jeder Block ist seinerseits nochmals in 4 * 2 = 8 
512-Bytes-Sektoren aufgeteilt, die ihrerseits aus je 2 der 256 
Bytes großen Datensätze bestehen, aus denen eine Diskette vom 
physikalisehen Format her aufgebaut ist. Das unter Pascal-DOS 
bei einem Schreib/Lese-Prozeß zur bzw. von der Floppy und damit 
zur Diskette transferierte Datenpaket ist immer der 512 Bytes 
große Sektor, von denen - wie gesagt - je 8 logisch fortlaufend 
zu einem Block zusammengefaßt im Directory einer Diskette 
verwaltet werden. 


Bei der mit 'S' abgerufenen und wiedergegebenen Blocktafel 
werden die einzelnen Blöcke mit einem Symbol versehen 
ausgegeben, die folgende Bedeutung haben: 


F (FREE) 


Der betreffende 
Verfügung. Die 
geschieht mit 0. 


Block steht zur weiteren 
interne Kennzeichnung in 


Benutzung zur 
der Blocktafel 


I (INVALID) 

Dieser Block darf nicht verändert werden. Er beinhaltet das 
Directory der Diskette und die als Advices eingetragenen 
zusätzlichen Informationen. Die interne Kennzeichnung dieses 
Blockes geschieht mit dem Wert 255 ($FF). 
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U (USED) 

Dieser Block ist belegt. Intern ist in der Blockbelegungs¬ 
tafel ein Kettungszeiger eingetragen, der auf den Block 
zeigt, der sich logisch an den betreffenden anschließt, oder 
aber er ist durch Werte >= 80 und < 96 als Schlußblock einer 
Aufzeichnung markiert. 


X < *XCLUDE) 

Dieser Block wurde mit dem ' X '-Kommando für eine Belegung 
durch das DOS gesperrt. Er könnte durch das 'Z'-Kommando 
wieder freigemacht werden. Intern wird in die Tafel in einem 
solchen Falle der Wert 256 <$FE) eingetragen. 


Die Blockbelegungstafel wird wie folgt dargestellt (es handelt 
sich um die der Systemdiskette): 


BLOCK-TABLE 0F D1SC "PASCAL ,0"t 
... r XCLUDE , FREE , INVALID, USED.) 

0: I U U U U U U U U U 
10s U U U U U F F F F F 
20: F F F F F F F F F F 
30: F F F F F F F F F F 


Wurde die Diskette als doppeltgroßer Diskettenverbund 
organisiert, wird auch eine doppeltgroße Blockbelegungstafel des 
Verbundes ausgegeben. 
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6.1.3 C ' <- COPY FILE) 


Das Kopieren von einzelnen, unter Pascal-DOS angelegten Files - 
unabhängig von ihrer Art - erfolgt über das ' C' -Kommando. Das 
Utility -fragt in -folgendem Dialog die -für den Datenfrans-fer 
wichtigen Parameter ab: 

'SOURCE - DRIVE = ?' 

DESTINAT-DRIVE = ?' 

' F1LE-T1TLE = ?' 

Dabei werden Eingabe-fehler - wie in der Einleitung zum Abschnitt 
6 erläutert - zurückgewiesen. Das Kommando muß dann gegebenen¬ 
falls wiederholt werden. Ist das definierte File auf der 
Ursprungsdiskette (Source-Drive) nicht vorhanden, erfolgt die 
Fehlermeldung: 

TITLE NOT FOUND/' 

' EXECUT1ON NOT SUCCESSFUL/' 


Soll der KopierVorgang zwischen zwei Laufwerken (Drive 0 und 
Drive 1) vorgenommen werden, so findet nun ein blackweiser (400 
KBytes großer) Datenaustausch statt. Das Utility gibt dabei 
folgende Meldung aus: 

'COPYING; PLEASE NAIT /' 

BLOCK IN PROGRESS ... x' 

Der gerade im Transfer befindliche Block wird durch den Zahlen¬ 
wert x angezeigt. Dieser Wert wird laufend hochgezählt. 

Steht dagegen für Ursprungs- und Ziel laufwerk (Destination- 
Drive) nur eine Floppy zur Verfügung (es wurde in beiden Fällen 
Drive 0 angegeben), dann startet das Utility mit 

'L0AD1NG ... ' 

das Einlesen des kompletten Files in den Speicher des Rechners. 
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Anschließend wartet das Utility nach der Ausgabe 

'INSERT DEST1NAT10N-D1SC JNTO FLOPPY' 

' _ PRESS "RETURN" 1F DONE /' 

auf den Diskettenwechsel und meldet danach mit 

'SAYING . .. 

daß das Abspeichern au-f der Zieldiskette vorgenommen wird. Ist 
der freie Speicherplatz im Rechner für das gesamte File nicht 
ausreichend, wird Laden und Speichern nach entsprechend 
aufgefordertem Diskettenwechsel so lange wiederholt, bis das 
gesamte File kopiert wurde. 


Die Zusatzinformationen zu einem File (Advices) werden ebenfalls 
kopiert. Der Abschluß des Kopiervorganges wird mit READY' 
angezeigt. Unmittelbar zu Beginn des Datentransfers wird 
abgetestet, ob auf der Zieldiskette ausreichend Platz für das zu 
kopierende File vorhanden ist. Sollte die nicht der Fall sein, 
wird nach entsprechender Meldung 

DISC OVERFLON/' 

'EXECUTION NOT SUCCESSFUL /' 

oder 

MAP OVERFLON/‘ 

' EXECUT1ON NOT SUCCESSFUL/‘ 

die weitere Ausführung des Kommandos abgebrochen. Falls auf der 
Zieldiskette bereits ein File gleichen Namens existiert, fragt 
das Utility mit 

'"FILENAME" EXISTS ON DEST1NAT1ON-DI SC/' 

'SURE TO RENRITE THE FILE ? Y/N‘ 

nach, ob ein überschreiben dieses Files auf der Zieldiskette 
gewünscht wird, was mit 'Y‘ (- Ves) explizit anzugeben ist. 

Anderenfalls wird das 'C'-Kommando ignoriert. 
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6.1.4 'D' <- DUPLICATE DIBC) 

Für den Fall, daß die gesamten Informationen, die unter Pascal- 
DOS auf einer Diskette abgelegt wurden (also letztlich alle 40 
Blöcke), kopiert werden sollen, steht das '£)'-Kommando zur 
Verfügung. Dies läßt sich aber nur in Verbindung mit zwei 
Diskettenlaufwerken ausführen. Nachdem Ursprungs- (Source-Drive) 
und Ziel laufwerk (Destination-Drive) auf die entsprechenden 
Nachfragen 

'SOURCE - DRIVE = ?' 

DEST1NAT-DR1VE = ?' 

eingegeben wurden, wird zur Sicherheit gegen Datenverlust durch 
das überschreiben der Zieldiskette mit 

'DISC MAY BE USED; SURE TO RENRITE ? Y/N' 

nachgefragt, ob der Datentransfer tatsächlich vorgenommen werden 
sol 1 . 


Dieser vollzieht sich dann unter Ausgabe des jeweils kopierten 
Blockes mit folgender Anzeige: 

' COPY1NG; PLEASE HA1T'‘ 

BLOCK IN PROGRESS ... x' 


Wurde für Ursprungs- und Ziel laufwerk derselbe Drive angegeben, 
so meldet das Utility mit 

NO DUPL1CAT1NG N1TH S1NGLE-FLOPPY /' 

EXECUT10N NOT SUCCESSFUL/’ 

daß das ' D '-Kommando nicht ausgeführt werden kann. 
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Kann der Datentrans-fer zum Ziel lauf werk nicht vargenommen werden 
(Drive ist ausgeschaltet, keine Diskette eingelegt, Diskette 
unformatiert usw.), wird eine entsprechende Systemfehlermeldüng 
generiert und mit 

'EXECUTION NOT SUCCESSFUL /' 

die weitere Ausführung des Kommandos abgebrochen. 


ACHTUNG! 

Das Duplizieren kann nur auf Disketten vorgenommen werden, die 
mit "SYSGEN" formatiert bzw. generiert wurden! 
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6.1.3 * E' (- ENTER 8ECT0R) 


Dieses Kommando gestattet das Abspeichern eines 512 Bytes großen 
Speicherbereiches in einen beliebigen Sektor der Diskette. Die 
Parameter zu diesem Kommando werden wie -folgt abge-fragts 

‘RAII-ADR = ?' 

' SECTOR # = ?' 


Eingabefehler oder unzulässige Eingaben werden - wie eingangs 
beschrieben - zurückgewiesen. Das Kommando muß gegebenenfalls 
mit korrekten Eingaben wiederholt werden. 


Die zu belegenden Sektoren befinden sich als logische Einheiten 
in aufsteigender Reihenfolge auf der Diskette und sind zu je 8 
in einem Block zusammengefaßt (Sektor 0..7 in Block O, Sektor 
8..15 in Block 1 usw. bis Sektor 312..319, die in Block 39 
verwaltet werden). Liegt ein doppeltgroßer Diskettenverbund vor, 
werden die Sektoren fortlaufend von 0 bis 639 durchgezählt. 


Wird der Versuch unternommen, in einen mit "I" oder "U" gekenn¬ 
zeichneten Block, (siehe Abschnitt 6.1.2) zu schreiben, so meldet 
das Utility die entsprechende Blockbelegungskennzahl x und fragt 
nach, ob in diesen Sektor dennoch abgespeichert werden soll: 

'CONDITION OF C0RRESP0ND1NG BLOCK: x‘ 

'SURE TO SAVE 1NT0 TH IS SECTOR ? Y/N' 

ACHTUNG! 

Gegebenenfalls kann ein fataler Datenverlust durch überschreiben 
vorhandener Files in belegten Blöcken eintreten, oder gar das 
Directory der Diskette (Sektor 0!) zerstört werden. 
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6.1.6 'F * (- FETCH 8ECT0R) 


Das ’F '-Kommando kann als Pendant zum 'f'-Befehl zum übertragen 
eines beliebigen 512 Bytes großen Sektors von der Diskette in 
den Speicher des Rechners benutzt werden. Die dafür 
erforder1ichen Angaben werden wie folgt abgefragt: 

' SECTOR # ^ ?' 

RAM-ADR = ?' 


Auch hierbei werden falsche oder unzulässige Eingaben - wie in 
der Einleitung zu Abschnitt 6 erläutert - zurückgewiesen, 
wodurch das ’F '-Kommando ignoriert wird. Die mit diesem Kommando 
in den Speicher des Rechners übertragenen Daten können mit dem 
noch zu besprechenden K'-Befehl des Utilitys zur Anzeige auf 
den Bildschirm gerufen werden. 


ACHTUNG! 

Beim 'F '-Kommando wird nicht abgetestet, inwieweit der 
adressierte Speicherplatz für das Belegen mit dem angegebenen 
Sektor verwendet werden kann und ob der zu ladende Sektor in 
seiner gesamten Länge in den verfügbaren Speicher paßt. Im 
Utility kann für das ’F -Kommando gefahrlos der gesamte 
Speicherplatz $4000..$C200 benutzt werden. Seibstverständlich 
kann - wenn es in Sonderfällen gewünscht wird - auch noch in den 
Bereich $0400..t07FF <Bi 1dschirmspeieher) geladen werden. 
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6.1.7 *0' <- 0ET FILE FROM DI8C Tü RAM) 


Dieses Kommando ermöglicht das Laden eines beliebigen Files von 
der Diskette in den Speicher des Rechners. Dies ist u.a. sowohl 
■für das temporäre Speichern von Informationen als auch für das 
explizite Laden von Programmen, speziell von Maschinen¬ 
programmen, sehr nützlich. Die für das 'G '-Kommando 
erforder 1ichen Angaben (Parameter) werden in folgender 
Reihenfolge im Dialog abgefragt: 

‘ST ART-ADR. = ?' 


Zunächst ist also die Adresse anzugeben, ab der das zu ladende 
File im Speicher abzulegen ist. Die Adreßeingabe kann in Hex¬ 
oder Dezimal-Angabe erfolgen. Anschließend ist auf die Frage 

'F1LE-T1TLE = ?‘ 

der Name des Files anzugeben, das von der Diskette in den 
Speicher des Rechners geladen werden soll und mit dem das File 
im Directory (MAP) der Diskette verzeichnet ist. Im Anschluß 
daran wird mit 

DRIVE(MAP) = x' 

die Nummer des Laufwerks nachgefragt, in dem sich die Diskette 
mit dem gewünschten File befindet. Als Vorschiagswert x wird 
hier das zuletzt definierte Arbeitslaufwerk vorgegeben. Nur in 
den Fällen, in denen sich die Laufwerksnummer ändert, ist diese 
neue Nummer einzugeben. 


Sind alle 

Ladeprozeß 

Endadresse 


Angaben korrekt und fehlerfrei eingegeben, wird der 
ausgeführt, nach dessen Abschluß die erreichte 
im Speicher (als ' END-ADR+1 = $xxxx‘) angegeben wird. 
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ACHTUNG! 

Beim '^'-Kommando wird nicht abgetestet, inwieweit der 
adressierte Speicherplatz für das Belegen mit dem angegebenen 
File verwendet werden kann und ob das zu ladende File in seiner 
gesamten Länge in den verfügbaren Speicher paßt. Das File wird 
byte-genau in seiner ganzen Länge (bis EOF = END OF FILE) ab der 
definierten Startadresse in den Speicher geladen. Im Utility 
kann für das ' G '-Kommando gefahrlos der gesamte Speicherplatz 
$4000..$C200 benutzt werden. Selbstverständlich kann - wenn es 
in Sonderfällen gewünscht wird - auch noch in den Bereich 
$0400..$07FF (Bi 1dschirmspeieher) geladen werden. 


6.1.8 'H' <- HELP) 


Nit diesem Kommando läßt sich jederzeit die komplette 
liste auf dem Bildschirm ausgeben, so daß Sie sich 
augenblickliche Programmebene (MAIN/EDITOR/UTILITY) 
verfügbaren Kommandos unterrichten können. 


Kommando- 
über die 
und die 
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6.1.9 *!' <- INSERT ADVICE) 


Dieses Kommando gestattet die Eingabe einer mit ' A' abrufbaren 
File-Zusatzinformation (Advice). Derartige zusätzliche 
Informationen stehen Ihnen als Gedächtnisstütze oder Kommentar 
jederzeit abbrufbar zur Verfügung. So lassen sich Versions¬ 
nummern, Erstei 1ungsdaten, Speicherberei che, Startadressen usw. 
ablegen. 


Zur Eingabe solcher Advices fragt das Utility mit 

' F1LE-T1TLE = ?' 

nach dem Namen des anzusprechenden Files. Das betreffende File 
muß im Arbeitslaufwerk greifbar sein, und das Utility bittet mit 


' COMF1 RH "F1LENAME,DRIVE_NR"? N/Y' 

um Bestätigung der angegebenen File-Daten. Sollte das File nicht 
gefunden werden, wird dies mit 

'TITLE NOT FOUND/‘ 

' EXECUT1ON NOT SUCCESSFUL /' 

angezeigt und das '/'-Kommando ignoriert. 


Ansonsten meldet das Utility die Aufnahmebereitschaft für die 
Zusatzinformation mit 

UR1TE THE ADVICE (MAX. 63 CHAR.)' 

AND TERM INATE NITH RETURN'/' 

Nach Eingabe der Zusatzinformation wird mit dem abschließenden 
RETURN' diese zum angegebenen File im Bereich der Sektoren 1..5 
(Block 0) auf die Diskette geschrieben. 
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6.1.10 'J' <- JUMP) 


Dieses Kommando gestattet das Anspringen beliebiger Maschinen¬ 
oder Pascal-Programme, die im Speicher des Rechners abgelegt 
sind. Die Ansprungadresse wird mit 

'PRGM-ADR. = ?' 

im Dialog abge-fragt. 


ACHTUNG! 

Es er-folgt keine Kontrolle, ob an der angegebenen Speicher¬ 
adresse ordnungsgemäß ein abl auf-f ähi ges Programm beginnt. 


Für die Ablage der Programme steht bei einem Aufruf aus dem 
Utility der Spei eherbereich $4000..$C200 zur Verfügung. Wenn es 
sich bei dem angesprungenen Programm um ein Maschinenprogramm 
handelt, so wird aus diesem mit dem 65XX-Maschinenbefehl 

JHP $0800 

korrekt in das Utility zurückgesprungen, sofern die Speicher¬ 
zellen $0028..$004F, $0340..$0379 und $0800..$4000 (jeweils RAM- 
Speicher) nicht verändert wurden. 


Der 65XX-Maschinenbefehl 

JMP $C200 

führt dagegen in den MAIN-Rahmen. 
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6.1.11 'K' <- KILL TITLE) 

Mit dem ’K -Befehl können nicht mehr erforder1iche Files im 
Directory einer Diskette gelöscht werden. Nach Aufruf des 
Kommandos fragt das Utility nach dem zu löschenden File: 

' FILE-TITLE = ?' 

Zur Bestätigung werden anschließend das File und die Drive- 
Nummer des anzusprechenden Arbeitslaufwerkes ausgegeben: 

C0NFIRI1 "FILENAHE,DR1VE_NR"? N/Y' 

Erst nach der endgültigen Bestätigung mit Y' (= Yes) wird das 
definierte File gelöscht. Gegebenenfalls muß vorher mit H' 
(MAP) das Arbeitslaufwerk umdefiniert werden. 


Sollte das angegebene File nicht im Arbeitslaufwerk eingetragen 
sein, wird mit 

'TITLE NOT FOUND/' 

'EXECUTION NOT SUCCESSFUL /' 

die Befehlsausführung abgebrochen. 

Ist das zu löschende File gegen Löschen gesichert, fragt das 
Utility vor dem endgültigen Austragen aus dem Directory mit 

FILE IS LOCKED/' 

'SURE TO KILL THE FILE ? N/Y' 

dieses nach und führt den 'K '-Befehl erst nach Ihrer ausdrück¬ 
lichen Bestätigung mit 'Y' aus. Dies ist im übrigen die einzige 
Möglichkeit, geschützte Files zu löschen. 


Zum Abschluß dieses Kommandos wird das korrigierte Directory auf 
dem Bildschirm angezeigt. 
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6.1.12 * L * <- LOCK FILE) 


Neben der auf Programmebene aufrufbaren LOCK-Prozedur zum 
Schließen eines Files bei gleichzeitigem Sichern gegen 
überschreiben/Löschen kann mit dem '/.'-Kommando des Utilitys 
auch nachträglich jedes File gesichert werden. Das Utility fragt 
mi t 


' FJLE-TJTLE = ?' 

nach dem entsprechenden File, das im Directory des 
Arbeitslaufwerks eingetragen sein muß. Sollte es dort nicht 
verfügbar sein, so meldet das Utility die nicht erfolgreiche 
Ausführung des 'L '-Befehls mit 

'TITLE NOT FOUND /' 

'EXECUTION NOT SUCCESSFUL /' 


Ansonsten wird das angesprochene File als gesichert 
markiert. Zum Abschluß des Befehls wird das 
Directory auf dem Bildschirm ausgegeben. Darin 
gesicherten Files invers dargestellt. 


im Directory 
berichtigte 
werden die 
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6.1.13 ' M' <- MAP/DRIVE) 

Das ' /•/' -Kommando bietet die Möglichkeit, das Inhal tsverz ei chni s 
(Directory bzw. MAP) einer Diskette auf dem Bildschirm 
auszugeben. Zu diesem Zweck wird mit 

' DRIVE<NAP) ^ x' 

nachgefragt, in welchem Laufwerk sich die Diskette mit dem 
auszugebenden Inhaltsverzeichnis befindet. Bei dieser Nachfrage 
wird als Vorschiagswert x die Nummer des zuletzt benutzten 
Arbeitslaufwerks vorgegeben, so daß u.U. lediglich ein RETURN 
einzugeben ist. 


Das Ausgeben des Inhaltsverzeichnisses über das N ‘-Kommando des 
Utilitys erfolgt ohne Verwendung irgendeiner externen Hilfs¬ 
routine, so wie dies im MAIN-Rahmen und im Editor geschieht. 


Zu berücksichtigen ist, daß es sich bei dem auszugebenden 
Directory um das unter Pascal-DOS verwaltete Inhaltsverzeichnis 
handelt. Dieses Inhaltsverzeichnis hat einen anderen Aufbau als 
das mit dem herkömmlichen DOS verwaltete und liegt auch 
physikalisch an einer anderen Stelle auf der Diskette. Das mit 
dem normalen Betriebssystem verwaltete Directory hat in PROFI 
PASCAL keinerlei Bedeutung, in ihm ist allenfalls die Boot- 
Software, d.h. das Programm zum "Hochfahren" von PROFI PASCAL, 
verzeichnet. Mit Ausnahme weiterer 22 Blöcke herkömmlieher Größe 
(256 Bytes) wird der gesamte Rest der Diskette unter Pascal-DOS 
verwaltet. 


Mit dem '/•/'-Kommando werden die auf der Diskette verzei chneten 
Files mit ihrem Namen ausgegeben und der noch verfügbare freie 
Speicherplatz angezeigt. Dabei ist jedoch die Anzahl der freien 
Blöcke völlig anders zu interpretieren als im gewohnten DOS. 
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Unter Pascal-DOS wird die Diskette in 40 Blöcke zu je 4 KBytes 
<4096 Bytes, siehe auch 6.1.2) eingeteilt, so daß bei der Zahl 
der freien Blöcke deren dementsprechende Größe zu berück¬ 
sichtigen ist. 


Wird die bei Verfügbarkeit von zwei Floppy-Disk-Stationen 
gegebene Möglichkeit ausgenutzt, zwei Disketten zu einem 
Diskettenverbund doppelter Größe zusammenzubinden, so wird der 
noch freie Speicherplatz getrennt für jede einzelne Diskette 
dieses Verbundes angegeben. Das führt dazu, daß auch bei der 
Verwaltung von "Single-Disketten" die Ausgabe des freien 
Speicherplatzes im Inhaltsverzeichnis in einer der Verbundform 
entsprechenden Art geschieht. 


Für die nur mit der System-Software belegte Systemdiskette sieht 
das Inhaltsverzeichnis wie folgt aus: 


MAP 0F DI SC "PASCAL 
LOADDAT SYSGEN 
C_CPLR C_ASMBLR 
DISC. 0 = 18 // 
BLOCKS FREE / 


"g 

C_EDIT0R C_l!T 1L1TY 
C_PMDUMP 


Bei der Auflistung des Disketteninhaltes werden die Namen der 
Files, die gegen überschreiben/Löschen geschützt sind, invers 
(negativ) dargestellt. Weitere Informationen über die 
verwalteten Files können über das 'W'-Kommando abgerufen werden. 


Weitere Einzelheiten über das Pascal-DOS und die neue Disketten¬ 
verwaltung werden in Abschnitt 7 (Systemspezifisehe 
Informationen) angegeben. 
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Ä.1.14 *N' (- NEW DI8C) 

Dieses Kommando richtet ein vollkommen neues Directory auf der 
Diskette ein, was aber nur auf mit "SYSGEN" erzeugten bzw. 
formatierten Disketten möglich ist. Die für das Einrichten unter 
Pascal-DOS verwalteter Disketten erforderlichen Angaben werden 
vom Utility wie folgt abgefragt. Zunächst ist das Laufwerk zu 
benennen, in dem sich die betreffende Diskette befindet: 

'DRIVE(HAP) = x' 

wobei das zuletzt definierte Arbeitslaufwerk als Vorgabewert x 
ausgegeben wird. 


Fehlerhafte oder unzulässige Angaben werden in der unter 6 
beschriebenen Art zurückgewiesen. 


Aus Gründen der Sicherheit gegen versehent1iches Neueinrichten 
noch zu benutzender Disketten fragt das Utility vor der weiteren 
Befehlsausführung mit 

DI SC MAY BE USED ; SURE TO REHR1TE ? Y/N' 

nach, ob die Diskette tatsächlich neu eingerichtet werden soll, 
was nur bei einer Bestätigung mit ‘Y‘ (= Yes) geschieht. In 

einem solchen Fall wird noch der Name der anzulegenden Diskette 
erfragt: 

' D1SC-TITLE = ?' 

Durch die anschließende Frage nach der Zahl der Disketten: 

' N OF DISCS = ?' 

wird entschieden, ob eine Einzeldiskette mit 40 Blöcken oder ein 
aus zwei Disketten bestehender Verbund mit insgesamt 80 Blöcken 
eingerichtet werden soll. 
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Letzteres ist nur möglich, wenn zwei Diskettenlaufwerke (Drive 0 
und Drive 1) zur Verfügung stehen und das Diskettenpaar 
aufgeteilt auf beide Laufwerke eingelegt wurde. Ein einmal so 
eingerichteter Diskettenverbund gehört immer zusammen und muß 
auch immer gemeinsam verfügbar sein, wobei sich die erste 
Diskette in Drive 0 und die zweite Diskette in Drive 1 befinden 
muß. Dieser Verbund läßt sich allenfalls mit dem 0 '-Kommando 
organisatorisch wieder auf lösen. 


Auch bei der letzten Angabe werden fehlerhafte oder unzulässige 
Angaben in der für das Utility bekannten Art zurückgewiesen. Die 
Befehlsausführung wird abgebrochen. 


Im übrigen wird nach dem erfolgreichen Neuanlegen des Directorys 
dieses auf dem Bildschirm ausgegeben (nur der Diskettenname und 
die Anzahl der insgesamt freien Blöcke). 


6.1.13 '0' <- ORGAN IZE DI8C) 

Neben der unter ' N' (N-Kommando) geschilderten Möglichkeit, 
einen Diskettenverbund aus zwei Disketten herzustellen, kann 
dies auch nachträglich mit dem 0 '-Befehl bei einer vorhandenen 
"Single-Diskette" vorgenommen werden. Aber auch der umgekehrte 
Fall - die Auflösung eines Verbundes - ist möglich. Das Utility 
fragt zunächst mit 

' DRIVE<HAP) = x' 

nach, in welchem Laufwerk sich die erste Diskette (Stamm¬ 
diskette) befindet. Dabei wird das zuletzt definierte Arbeits¬ 
laufwerk x als Vorgabe ausgegeben. 
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Anschließend wird mit 

'NEW SIZE = ' 

nach der neu einzurichtenden Diskettenorganisation gefragt. 


Eine Einzeldiskette kann jetzt durch die Eingabe 2 zu einem 
Verbund aufgestockt werden, wozu die zweite Diskette im zweiten 
Laufwerk (Drive 1) verfügbar sein muß, damit die Kettungs¬ 
information auf dieser eingetragen und sie als Verbunddiskette 
markiert werden kann. Dazu können nur mit "SYSGEN" generierte 
Disketten benutzt werden. 


Ein Diskettenverbund kann dagegen durch die Eingabe 1 auf die 
Abfrage 'NEW SIZE - ' aufgelöst werden, wobei die zweite 
Diskette abgespaltet wird. Diese muß mit dem ' N '-Kommando 
anschließend neu eingerichtet werden. Sind auf der zweiten 
Diskette eines Verbundes Files abgespeichert, so fragt das 
Utility mit 

DI SC >* 1 NOT FREE/' 

SURE TO RESIZE THE DISC ? Y/N' 

nach, ob Sie den mit dem Abspalten verbundenen Datenverlust 
akzeptieren. Erst nach einer Bestätigung mit Y‘ (= Yes) wird 
das Umorganisieren des Diskettenverbundes vorgenommen. 
Gegebenenfalls müßte die zweite Diskette zunächst durch 
Umkopieren von Files freigemacht werden, bevor Sie das '0'- 
Kommando für eine solche Verbundauflösung anwenden. 


Nach erfolgter Umorganisation der Diskette(n) wird das neue 
Directory auf dem Bildschirm ausgegeben. 
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6.1.16 'P' <- PUT RAM A8 FILE TO DIBC) 


Dieses Kommando erlaubt als Pendant zum ' G ’-Kommando das 
Abspeichern eines beliebigen Teiles des Spei eherinhaltes als 
Datenfile auf die Diskette. Damit lassen sich temporär im 
Rechner gespeicherte Informationen (Daten, Programme usw. ) als 
Files generieren, die dann unter Pascal-DOS verwaltet werden und 
im Directory verzeichnet sind. Die für die Ausführung des 'P'- 
Kommandos erforder1ichen Angaben (Parameter) werden wie folgt im 
Dialog abgefragte 

'START-ADR. = ?' 


Es ist die Adresse anzugeben, in der die abzuspeichernde 
Information beginnt. Auf die auch hier bestehende Eingabe¬ 
möglichkeit sowohl einer Hex- als auch einer Dezimal-Adresse sei 
nochmals aufmerksam gemacht. Jetzt ist auf die Frage 

' END-ADR.+1 = ?' 

die auf den abzuspeichernden Bereich unmittelbar folgende 
Adresse anzugeben (in Anlehnung an die in solchen Fällen 
üblichen Adreßangaben). Anschließend an die Definition des auf 
die Diskette zu übertragenden Speicherbereiches wird mit 

' FlLE-TJTLE = ?' 

der Name abgefragt, unter dem das anzulegende File im Directory 
der Diskette verwaltet wird. Bei der Eingabe der File-Namen ist 
die Syntax für Pascal-Bezeichner zu beachten: 

* 8 signifikante Zeichen, 

* 1. Zeichen: Buchstabe 

* Restzeichen: Buchstaben, Ziffern und 
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Im Anschluß an den File-Namen ist auf die Frage 

DRIVE(HAP) - x ' 

die Laufwerksnummer anzugeben, in der sich die zu belegende 
Diskette befindet. Als Vorschlagswert x wird das zuletzt 
benutzte Arbeitslaufwerk direkt mit der Dialogfrage ausgegeben. 


Nachdem alle Angaben korrekt und fehlerfrei eingegeben wurden, 
wird der Abspeicherprozeß durchgeführt. 


ACHTUNG! 

Beim Abspeichern auf die Zieldiskette wird ein auf dieser 
Diskette befindliches File gleichen Namens überschrieben; die 
ursprüngliche Information geht verloren! Ist das gleichnamige 
File auf der Zieldiskette gegen überschreiben/Löschen geschützt, 
unterbleibt die Ausführung des ' P '-Kommandos nach Ausgabe der 
Fehlermeldung: 

1LL.F1LE OPR. ERROR/' 

Für den Fall, daß auf der Zieldiskette kein ausreiehender 
Speicherplatz vorhanden ist, deren Directory für den 
zusätzlichen File-Eintrag nicht mehr aufnahmefähig ist oder die 
Diskette insgesamt schreibgeschützt ist, wird ebenfalls eine 
diesbezügliche Fehlermeldung generiert und das ' Z 3 '-Kommando 
abgebrochen. 


Während des Abspei ehervorganges liegt eine Spei eherkonfiguration 
vor, die den Bereich $0000..♦CFFF als RAM-, den Bereich 
$D000..$DFFF als I/O- und den Bereich $E000..$FFFF als R0M- 
(KERNAL)-Spei eher eingeschaltet hat. 


Nach dem erfolgreichen Abspeichern wird das neue Directory auf 
dem Bildschirm ausgegeben. 
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6-1.17 GT (- QUIT) 

Mit diesem Kommando können Sie das Utility wieder verlassen und 
zum MAIN-Rahmen zurückkehren. 


6.1.18 'R' <- RENAME FILE) 

RENAME gestattet das Ändern des Namens, unter dem ein File im 
Directory einer Diskette verwaltet wird. Es wird zunächst mit 

'F1LE-TITLE = ?' 

nach dem zu ändernden File-Namen gefragt. Dieser File-Name muß 
im Directory des Arbeitslaufwerks vorhanden sein, anderenfalls 
gibt das Utility die Fehlermeldung 

TITLE NOT FOUND/' 

'EXECUTION NOT SUCCESSFUL/' 

aus. Wird dagegen die angegebene File-Bezeichnung vom Utility 
korrekt vorgefunden, fragt es mit 

‘REPLACEMENT*' 

nach dem Ersatznamen für den ursprünglichen File-Eintrag. Der 
angegebene Ersatzname wird nun im Directory übernommen und das 
geänderte Directory wird anschließend auf dem Bildschirm 
ausgegeben. 

Sollte bereits ein gleichlautender Eintrag vorhanden sein, 
meldet das Utility mit 

'TITLE EX ISTS ON TH1S DISC/' 

EXECUTION NOT SUCCESSFUL/' 

daß es die angeforderte Änderung nicht vornehmen kann. 

Eine Änderung des Diskettennamens ist mjt dem R' -Kommando 
ebenfalls möglich. 
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6.1.19 '8' (- STORE BYTE INTO MEMORY) 

Mit dem 'S'-Kommando kann eine Byte-Information unmittelbar im 
Speicher des C64 geändert bzw. eingegeben werden. Zu diesem 
Zweck -fragt das Utility mit 

' IIEH-ADR = ' 

' CONTENTS= ' 

nach der zu beeinflussenden Spei eheradresse und dem dort 
abzulegenden Inhalt. In beiden Fällen können, wie bei allen 
numerischen Eingaben mit einem führenden '^'-Zeichen markiert, 
statt dezimaler auch hexadezimale Werte angegeben werden. Ein 
Wert über 255 ($FF> für CONTENTS wird vom Utility zurück¬ 
gewiesen. Ansonsten wird der angegebene Wert in der vorher 
definierten Speicherzel1e abgelegt. 


ACHTUNG! 

Es wird nicht abgetestet, ob das Abspeichern des angegebenen 
Wertes in der adressierten Speicherzelle zulässig ist. Von einem 
unkontrol1ierten Benutzen dieses Kommandos sollten Sie auf alle 
Fälle Abstand nehmen. 
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6.1.20 'T * <- TRAN8FER MEMORY-BLOCK) 

Dieses Kommando gestattet - vor allem für Testzwecke - das 
Verschieben von Spei eherinhalten. Es werden stets 256-Bytes- 
Gruppen (1 Page des Spei eherbereiches) verschoben, wobei jedoch 
die jeweilige Startadresse beliebig definiert werden kann. Sie 
muß nicht zwingend auf einer Pagegrenze (Low-order-Byte der 
Adresse = $00) liegen. 


Das Utility fragt mit 

'ADR 0F SOURCE - PAGE = ?' 

'ADR 0F DEST1NAT-PAGE = ?' 

sowohl nach der Startadresse des Ursprungsblocks als auch nach 
der des Zielblockes. Im Anschluß an diese Eingaben, die wiederum 
dezimal oder hexadezimal erfolgen können, wird der Speicher— 
inhalt des Quel1bereiches in den Zielbereich transferiert. 


ACHTUNG! 

Es wird nicht abgetestet, ob der Zielbereich für derartige 
Manipulationen verfügbar ist. Wenden Sie das '7'-Kommando nur 
kontrolliert und gewissenhaft an. Ein Programmabsturz oder 
der Verlust wichtiger Daten könnten die Folge sein. Das Utility 
stellt Ihnen den Bereich $4000..$C1FF zur freien Verwendung zur 
Verf ügung. 
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6.1.21 U' <- UNLQCK FILE) 

Mit dem '(/'-Befehl haben Sie die Möglichkeit - gewissermaßen als 
Pendant zum 'L '-Kommando (LOCK) -, die gegen überschreiben bzw. 
Löschen gesicherten Files wieder -fr ei zugeben, zu entsichern. Das 
Utility fragt mit 

' F1LE-TJTLE = ?' 

nach dem zu entsichernden File, das im Arbeitslaufwerk verfügbar 
sein muß. Mög1ieherweise muß vorher mit dem ‘M '-Kommando (MAP) 
das Arbeitslaufwerk umdefiniert werden. 


Ist das angegebene File nicht vorhanden, wird der '(/'-Befehl mit 

'TITLE NOT FOUND /' 

'EXECUTION NOT SUCCESSFUL/' 


ignoriert. 

Ansonsten wird das definierte File entsichert und das geänderte 
Directory zum Abschluß der Befeh1sausführung auf dem Bildschirm 
ausgegeben. 


6.1.22 'V' (- VIEW MEMORY) 

Das ' V '-Kommando gestattet das Auslisten eines beliebigen 
Spei eherbereiches auf dem Bildschirm oder auf einem Drucker. Der 
Inhalt der zu definlerenden Spei eherbereiche wird als Hexwerte 
und — soweit es möglich ist - auch in ASCII-Darstel1ung 
wiedergegeben (Hex-Dump). Das Utility fragt zunächst mit 

'ST ART—ADR. » ?' 

' END-ADR.+l = ?' 

nach Start- und Endadresse des zu listenden Bereiches, wobei wie 
gewohnt dezimale und/oder hexadezimale Angaben möglich sind. 
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Sind Start- und Endadresse identisch, gibt das Utility nur den 
Inhalt der so definierten Zelle auf dem Bildschirm aus. Wird 
jedoch ein Speicherbereich definiert, wird zunächst mit der 
Abfrage 


'HARDCOPY TO PRINTER ? Y/N' 

geklärt, ob die Ausgabe auf einem Drucker erfolgen soll. Die 
Druckeradresse kann, entsprechend den Ausführungen in der 
Einleitung zum Utility, den jeweiligen Erfordernissen angepaßt 
werden. 


Danach wird das "Memory-Dump" ausgegeben, das beispielsweise für 
den Bereich *C200..$C22F (Beginn des MAIN-Rahmens) auf dem 
Bildschirm wie folgt aussieht: 


<< MEMORY-DUMP >> 


$c. 200 t 20 

21 

CA 

12 

C2 

00 

00 

BC 

/ . 

$C208:F1 

CI 

00 

00 

00 

C2 

FO 

FF 


$C210t00 

00 

40 

19 

C2 

FF 

Bl 

11 

. . M . 

$C-21 8 : C6 

80 

IC 

2A 

20 

43 

30 

36 

. . . * C=6 

$C220 s 34 

20 

20 

50 

41 

53 

43 

41 

4 PASCA 

$C228:4C. 

20 

53 

59 

53 

54 

45 

40 

L-SYSTEM 


Die Spei eherinhalte im Bereich $20..$7F werden in ASCII-Zeichen 
in Klartext wiedergegeben. Das Auslisten der Spei eherinhalte 
kann durch Betätigen der Leertaste (Space) angehalten und durch 
erneutes Betätigen wieder fortgesetzt werden. Durch Betätigen 
der RUN/STOP-Ta&te kann die Ausgabe jederzeit abgebrochen 
werden. 
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6.1.23 W' (- WRITE DIRECTORY) 

Das W'-Kommando ermöglicht die Ausgabe des Inhaltsverzeich¬ 
nisses einer Diskette in erweiterter Form. Es werden nicht nur 
zusätzliche Informationen ausgegeben, sondern das gesamte 
Directory kann auch auf einem Drucker ausgelistet werden. Da® 
über den W'-Befehl ausgegebene Directory liefert neben den 
üblichen allgemeinen Angaben wie Diskettenname und File- 
Bezeichner im einzelnen noch folgende Informationeni 


CONDITION; 

Mit 'LOCKED' bzw. UNLOCKEW wird der Zustand des jeweils 
aufgeführten Files hinsichtlich seines Schutzes gegen 
überschreiben/Löschen angegeben. 

STARTBLQCK 

Zu jedem File wird unter dieser Angabe der Block, in dem die 
abgespeicherte Information auf der Diskette beginnt, 
ausgegeben. 

LENGTH 

Diese Angabe liefert die Gesamtlänge des jeweiligen Files. 
Sie wird in einem Format X.Y ausgegeben, das mit X die Anzahl 
der belegten 256-Bytes-Pages und mit Y die Anzahl der Rest¬ 
bytes in der unter X nicht mitgezählten Schlußpages bestimmt. 

ADVICE 

Hierzu wird - falls eingegeben - die Fi 1e-Zusatzinformation 

ausgegeben. Liegt kein Advice vor, so wird lediglich ' - ' 

wiedergegeben. 


Nach Aufruf des 'W'-Kommandos wird zunächst mit 

'DRIVE(MAP) = x‘ 

nach dem Laufwerk gefragt, in dem sich die Diskette mit dem 
auszugebenden Directory befindet. Das zuletzt definierte 
Arbeitslaufwerk x wird dabei vorgegeben. 
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Im Anschluß daran wird der Ausgabemodus erfragt: 

HARDCOPY TO PRINTER ? Y/N ‘, 

der im Falle einer Bestätigung mit ’Y* (*Yes) als Druckausgabe 
definiert wird. Eine Definition der druckerspezifisehen Daten 
(Geräteadresse und Sekundäradresse) kann, wie in der Einleitung 
zu Abschnitt 6, beschrieben mit 'Qx,y‘ vorgenommen werden. 


Im Anschluß an die letzte Eingabe erfolgt die Ausgabe des 
Directorys der im Arbeitslaufwerk befindlichen Diskette. Wird 
das Directory auf dem Bildschirm wiedergegeben, kann das Listing 
durch Betätigung der Leertaste (Space) angehalten und mit einer 
erneuten Betätigung wieder gestartet werden. Mit der Betätigung 
der RUN/STOP -Taste kann sowohl die Bildschirm- als auch die 
Druckerwiedergabe abgebrochen werden. 


Das mit dem W -Befehl ausgegebene Directory einer mit "SYSGEN" 
generierten Diskette sieht wie folgt aus: 


<< DIRECTORY OF DISC "PASCAL ,0" >> 

FILE-TITLE "LOADDAT " 

CONDITION:LOCKED STARTBLOCK: 1 

LEN6TH: 63.255 ADV ICE: - 


(hier folgen gegebenenfalls die weiteren Files) 


TOTAL: 1 DISCS // 1 TITLES // 

5 BLOCKS (35 FREE) // 
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6.1.24 'X' <- ' XCLUDE BLOCK) 

Mit diesem Kommando haben Sie die Möglichkeit, einen Block der 
Diskette gegen die reguläre Benutzung durch das DOS für normale 
Files zu sperren. Ein so gesperrter Block erhält in der 
Blackbelegungstafel den Wert 254 <$FE) und wird bei der Ausgabe 
der Blocktafel mit * X" markiert. Der zu sperrende Block wird mit 

' EXCLUDING-BLOCK = ‘ 

erfragt, wobei das Utility die Eingabe 0 für den Directoryblock, 
der nicht gesperrt werden darf, mit 

‘INVALID INPUT/' 

'EXECUTION NOT SUCCESSFUL /' 

zurückweist. Nach Ausführung des Befehls wird die korrigierte 
Blackbelegungstafel auf dem Bildschirm ausgegeben. 

So gesperrte Blöcke können Sie natürlich nach wie vor mit dem 
E '-Kommando sektorweise beschreiben. 

6.1.25 'Y’ (-LIST FILE) 

Mit dem * V'-Kommando läßt sich ein sogenanntes Hex-Dump eines 
beliebigen unter Pascal-DOS angelegten Files generieren, ähnlich 
dem ’V '-Befehl, der ein Hex-Dump eines beliebigen 

Speicherbereiches liefert. Das Utility fragt mit 

'F1LE-T1TLE = ?' 

nach dem Namen des auszulistenden Files, das im Directory des 
Arbeitslaufwerks eingetragen sein muß. Ist dies nicht der Fall, 
wird mit der Ausgabe 

TITLE NOT FOUND/' 

' EXECUT1ON NOT SUCCESSFUL /' 

die Ausführung des ' Y ' -Kommandos abgebrochen. 
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Im übrigen haben Sie wie beim ' V '-Kommando die Möglichkeit, 
durch die Bestätigung der Ab-frage: 

HARDCOPY TO PRINTER ? Y/N' 

mit ’Y‘ <= Yes) das File-Dump nicht auf den Bildschirm, sondern 

auf einen Printer ausgeben zu lassen. 


Beim Auslisten des File-Dumps werden sämtliche Datenbytes in 
Hex-Notation wiedergegeben, wobei eine fortlaufende Zählung der 
Daten beginnend mit $0000 vorgenommen wird. Datenwerte im 
Bereich $20..$7F werden zusätzlich als A6CII-Characters 
ausgegeben, um gegebenenfalls Textfiles in Klartext verfolgen zu 
können. 


Das Auslisten der Datenwerte kann durch Betätigen der Leertaste 
(Space) angehalten und durch erneutes Betätigen wieder 
fortgesetzt werden. Im übrigen wird das File-Dump bis zum File- 
Ende, was mit der Ausgabe ' EOF ... ' wiedergegeben wird, 
ausgelistet, falls es nicht durch Betätigen der 'RUN/STOP '-Taste 
abgebrochen wird. 


Das Dump der ersten 48 Datenbytes des Files LOADDAT sieht wie 
folgt aus: 


<< FILE-DUMP 0F "LOADDAT ,0" >> 


$0000:20 21 CA 
$0008:F1 CI 00 
$0010:00 00 4D 
$0018s4C 06 CA 
$0020:F1 08 5F 
$0028:40 29 79 


12 F7 81 00 
00 00 F7 FE 
34 F8 4C 09 
5E 02 79 41 
FA F7 08 FC 
5E 02 79 6B 


BA / . 

FF . 

CA ..M4.L.. 
26 L • * ^.Y A& 

08 .._. 

79 QYY*.YkY 
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6.1.26 1 • <- RELEASE BLOCK TO ZERO) 

Mit diesem Kommando haben Sie die Möglichkeit, einen gesperrten 
oder belegten Block der Diskette zu entsperren und der regulären 
Benutzung durch das DOS wieder zugänglich zu machen. Ein so 
■frei gegebener Block erhält in der Bl ockbel egungsta-f el den Wert 0 
und wird bei der Ausgabe der Blockta-fel mit ’F' markiert. Der 
freizugebende Block wird mit 

'RE LEASING-BLOCK (TO ZERO) = ‘ 

erfragt, wobei das Utility die Eingabe 0 für den nicht freigeb- 
baren Directoryblock mit 

'INVALID INPUT/' 

'EXECUTION NOT SUCCESSFUL/' 

zurückweist. 


Handelt es sich bei dem angegebenen Block um einen regulär vom 
Pascal-DOS belegten, so fragt das Utility mit 

'BLOCK IS USED/ SURE TO RELEASE ? Y/N' 

ob der betreffende Block tatsächlich freigegeben werden soll, 
wodurch in der Regel ein Datenverlust entsteht, da dieser Block 
infolge des Freigebens aus der Blockkettung eines Files entfernt 
wi rd. 


Nach Ausführung des Befehls wird die korrigierte Blockbelegungs¬ 
tafel auf dem Bildschirm ausgegeben. 


Die entsperrten Blöcke werden vom DOS wieder in der üblichen Art 
benutzt. 
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7 8YBTEMSPEZIFI8CHE INFORMATIONEN 

Im Rahmen dieses Abschnittes sollen Ihnen Detai1informationen 
über den inneren Aufbau von PROFI PASCAL und die Implementation 
auf dem C64 an die Hand gegeben werden, um Ihnen eventuelle 
Anpassungen, Änderungen oder Erweiterungen auf Maschinensprache¬ 
ebene zu ermöglichen. Des weiteren können Sie anhand dieser 
Informationen eigene File-Zugriffsmechanismen entwickeln, um den 
von Pascal unterstützten sequentiellen File-Aufbau und den 
daraus abgeleiteten Random-Zugriff mit einem auf Ihre Belange 
abgestimmten File-Handling und -Management zu ergänzen. 

7.1 BYBTEMGRÖB8EN UND -DEFINITIONEN 

Dieser Abschnit gibt in einer kurzen Zusammenstellung Auskunft 
über interene Daten und deren Definition. 


Variablenaufbau 


BOOLEAN-Variablen haben die Größe eines 

Bytes 

und umfassen < 

Werte: 



FALSE 

SB 

0000 0000 

TRUE 

SS 

0000 0001 


CHAR- und BYTE-Variab1en sowie anwenderspezifisehe skalare 
Variablen werden durch ein Byte dargestellt und besitzen den 
maximalen Werteumfang 


von #0 ($00) 

bis #255 <*FF) 


0000 0000 

1111 1111 


CHAR-Variablen werden dabei mit dem im C64 erzeugten Code 
dargestellt, der für die in Bezeichner verwendeten Characters 
mit dem ASCII-Code identisch ist. 
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INTEGER-Variablen werden durch 2 Bytes (Low-Byte auf der 
niedrigeren Adresse) binär-kodiert dargestellt, wobei das 
höherwertigste Bit die Vorzeicheninformation trägt (0 für 
positive und 1 für negative Werte). Die Integer-Variablen 
umfassen den Wertebereich 


von -32767 

(-MAX INT) 

(*8001) 

- 

1000 

000 

0000 

0001 


-1 

<*FFFF) 

- 

1111 

1111 

1111 

1111 

über 0 

(*0000) 

- 

0000 

0000 

0000 

0000 


1 

(*0001) 

=■ 

0000 

0000 

0000 

0001 

bis +32767 

(+MAXINT) 

(*7FFF) 

Ä 

0111 

1111 

1111 

1111 


REAL-Variablen werden durch insgesamt 6 Bytes in binär—kodierter 
Exponentialform dargestellt. Das höherwertigste Byte (auf der 
niedrigsten Adresse) repräsentiert den binären Exponenten mit 
dem Wertebereich 


von (2-') -127 <*01) 
über (2^) 0 <*80) 

bis (2^) 127 <*FF) 


0000 0001 
1000 0000 
1111 1111 


Die restlichen 5 Bytes einer Real-Variab1en (von der niedrigen 
zur höheren Adresse verlaufend) stellen die normierte Mantisse 
dar, d.h. das höherwertigste Bit ist immer 1, so daß auf seine 
Darstellung verzichtet werden kann. In ihm ist die Funktion des 
Mantissenvorzeichens integriert (1 für positive und 0 für 
negative Werte). Zum Beispiel: 

-23.5 wird binär als -10111.1 = -1.01111 * 10 A 100 
mit den folgenden 6 Bytes: *84 *BC *00 *00 *00 *00 

dargestellt. Der Zahlenwert 0 ist auf die hier beschriebene 
Weise nicht darstellbar (0 = 1.0... * 2 -infinitiv); dem 

Zahlenwert 0 wird der Exponent 0 <*00) zugeordnet und ist als 

*00 *80 *00 *00 *00 *00 

kodiert. 
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ADRESS-Größen werden durch 2 Bytes dargestellt (Low-Byte auf der 
niedrigen Adresse). 


SET-Variablen können bis maximal 256 Elemente enthalten, die mit 
256 Bits = 32 Bytes dargestellt werden. Das Byte auf der 
niedrigsten Adresse repräsentiert die Elemente 0..7 und das Byte 
auf der höchsten Adresse die Elemente 24S..255, wobei das 
jeweils niedrigwertigste Bit das erste Element einer solchen 
Achtergruppe darstellt usw. 


ARRAY-Variablen werden sequentiell dargestellt, wobei die 
Elemente entsprechend dem Index von niedrigen zu höheren 
Adressen abgelegt werden. 


RECORD-Varriablen werden analog den Array-Variab1en entsprechend 
den Feld-Definitionen im Speicher von niedrigen zu höheren 
Adressen abgelegt. 


Im übrigen werden 
Definition auf dem 
Beispiel führt die 
Stackbelegung: 


die Variablen in der Reihenfolge ihrer 
Stack von oben nach unten angelegt. Zum 
folgende Definition zu der nebenstehenden 
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hohe Adresse 


A,BsINTEGER; 


C sREAL; 


D,E:ARRAYC1..33 OF CHAR; 


F s RECORD 

G:BOOLEAN; 

H:BYTE; 

CASE I:INTEGER; 

1:(JiSTRING); 

2:(K:SET OF 0..255) 

END; 


A (HIGH) _ 

_ A ( LON) _i_ 

B (HIGH) _L 

B ( LOW) _L 

C( EXP) _L 

C(MAN,HIGH) ! 

C(MAN. 1 ) I 

C(MAN. 3 ) I 

C(MAN. 4 ) S 

C(MAN. 5 ) ! 

C(MAN. LOW) I 

_ PC 3 3 _!_ 

_ DC23 _!_ 

_ DC13 _l_ 

_ EC33 _I. 

_ EC23 _!_ 

_ EC 1 3 _L 

K(248..255) I 

K <240.,247) ! 

K < ... ) I 

K(B..15)/J(HIGH) ! 

K(0.■ 7)/J( LOW) I 

_ I (HIBH) _ L 

_ I ( LOW) _ \_ 

_H_S. 

_G_L 


niedrige Adresse 
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PROZEDUR/FUNKTIONS-Deskriptoren bestehen aus jeweils 6 (7) Bytes 
und werden bei jedem Prozedur- bzw Funktionsaufruf auf dem Stack 
abgelegt. Diese 6 (7) Bytes repräsentieren: 


Dynamischer Linker 
Rücksprungadresse 
Statischer Linker 
(Segment-Nummer 


(2 Bytes) 
(2 Bytes) 
(2 Bytes) 
(1 Byte)) 


Der generierte Programmcode besteht aus einem PROFI PASCAL- 
spezifischen PCode, der aus 1 bis 4 Bytes aufgebaut ist. String- 
und Real-Konstanten werden in den generierten PCode mit 
aufgenommen und werden von einem Relativ-Sprung-Code angeführt. 


Die im System definierten 

Runtime-Feh1 er sind 

intern 

kodiert s 





0 

= 

OK 

(I/O-Error 

0) 

1 

= 

entfällt 



2 

= 

IL.INPUT 



3 

* 

entfällt 



4 

= 

OUT OF RNG. 



5 

= 

NOT EXQ. 



6 

= 

NUM.OV. 



7 

= 

B.SUBS. 



8 

- 

IL.QUANT. 



9 


STK.OV. 



10 

= 

ZERO-DIV. 



1 1 

a 

IL.DVC. 



12 

= 

FLQPPY- 

(I/O-Error 

1) 

13 

* 

NOT OPEN 

(I/O-ERROR 

2) 

14 

= 

NOT CLO. 

(I/O-ERROR 

3) 

15 

* 

BUF.OV. 

(I/O-Error 

4) 

16 

= 

DIR.OV. 

(I/O-Error 

5) 

17 

- 

NOT FND. 

(I/O-Error 

6) 

18 

s 

DSC.OV. 

(I /O-Error 

7) 

19 

a 

DSC.MISM. 

(I/O-Error 

8) 

20 

= 

IL. FILE 0F‘R. 

(I/O-Error 

9) 

21 

= 

AFTER EOF 

(I/O-Error 

10) 

22 


IEE - 

(I/O-Error 

11) 
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7.2 SPEICHERBELEGUNG UND -ADRESSEN 


PROFI PASCAL belegt im C64 folgende Adressens 


$0028. 

.$0029 

Pointer auf Start-of-Stack 

$002A. 

. $002B 

unbenutzter Reserve-Pointer 

$002C. 

. $002D 

Base-Pointer 

$002E. 

. $002F 

Pointer auf Top-of-Stack (STKF'ÜI) 

$0030. 

.$0031 

Pointer auf aktuelle Halde 

$0032. 

. $0039 

diverse Pointer (unterschiedlich belegt) 

(benutzbar in Assembler-Routinen) 

$003A. 

.$004F 

Fetch-Routine der "P-Maschine", darin 

eingebettet 

$003B. 

.$003C 

Pointer auf aktuellen PCode 

$0050. 

.$0066 

diverse Zero-Page Zellen 

(benutzbar in Assembler-Routinen) 

$0067. 

.$006F 

diverse C64-System-Register 

$0100. 

.$0184 

INPUT-Buffer 

$0185. 

.$01F9 

6510-Maschinenstack 

$01FA. 

.$01FF 

RANDOM-Variab1e 

o 

K' 

O 

** 

.$0348 

Deskriptor für 1. File-Puffer 

$0349. 

.$0351 

Deskriptor für 2. File-Puffer 

$0352. 

.$035A 

Deskriptor für 3s File-Puffer 

$035B 


Flag für Error-Falle 

$035C 


I/O-Error-Nummer 

$035D 


Arbeitslaufwerk 

$035E 


Flag für "EXECUTE" 

$035F 


temp. Laufwerk 

$0360 


Warmf1ag 

$0361. 

.$0362 

Pointer auf MAIN-Rahmen 

$0363. 

.$0364 

Pointer auf Programmstart 

$0365. 

.$036C 

File-Namen für Source-übergabe 

$036D 


Übergabe-Laufwerk für PUT/GET-Sektor 

UJ 

>0 

K» 

O 

* 

.$036F 

Sektornummer für PUT/GET-Sektor 

$0370 


INPUT-Gerät 

$0371. 

.$0372 

I NF'UT-Sekundär adr esse 
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♦0373 

♦0374..*0375 
♦0376..*0379 


♦037A..*03FF 


OUTPUT-Gerät 
OUTPUT-Sekundäradresse 
diverse Verwendung 
OUTPUT-Puffer 


♦0800. Regel start -für Programme 

♦BBFF Ende des regulären -freien Stacks 


♦BCOO..♦C1FF 

♦C200..*C7FF 
♦C800..*F0FF 


Var i ab 1enstack des MAIN-Rahmen 
(benutzbar in Anwenderprogrammen) 
MAIN-Rahmen 

PROFI PASCAL Runtime-Paket 


♦CA03 

♦CA06 


♦CA09 

♦CAOC 

♦CAOF 

♦CA12 

♦CA 15 


Jump für externe Drucker-Routine 
Jump auf GET-Sektor 

<Variab1enÜbergabe auf Pascal-Stack: 
Drive-Nr. (High) 

Drive-Nr. (Low) 

Sektor-Nr.(High) 

Sektor-Nr.(Low) 

RAM-Adresse (High) 

RAM-Adresse (Low)) 

Jump auf PUT-Sektor 

(Variablenübergabe wie bei GET-Sektor) 
Jump auf Runtime-Error 

(Fehlernummer auf Pascal-Stack übergeben) 
Jump auf MAIN-Rahmen 
(JMP *C200) 

indirekter Jump für Programmende 
(regulär: MAIN-Rahmen (JMP (*0361)> 
indirekter Jump auf Programm 
(regulär nach *0800 (JMP (*0363)) 


♦F300..*F6FF 1. File-Puffer 
♦F700..*FAFF 2. File-Puffer 
♦FB00..*FEFF 3. File-Puffer 


♦FFFA..*FFFF Maschinen-Vektoren 
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7.3 DIBKETTEN-OR0ANI SATION 


Die Diskette ist unter Pascal-DOS (Disc-Qperating-System) in 320 
logisch fortlaufend von 0..319 numerierte Sektoren mit je 512 
Bytes eingeteilt. Dies sind die mit den über die Adressen $CA06 
und $CA09 erreichbaren Routinen GET-Sektor und PUT-Sektor von 
und zur Floppy (Diskette) zu transferierenden einheitlichen 
Datensätze. Jeder dieser Datensätze wird auf der Diskette in 
zwei vom normalen DOS angelegte 256 Byte-Blöcke abgelegt. Die 
320 Sektoren benötigen also von den insgesamt verfügbaren 683 
Blöcken 640. Die verbleibenden 43 Blöcke werden vom Pascal-DOS 
nicht benötigt. Es handelt sich dabei um folgende Blöcke: 


Track 

1 - 

17 

/ 

Sektor 

20 

Track 

18 


/ 

Sektor 

0, 

Track 

19 - 

24 

/ 

Sektor 

18 

Track 

25 - 

30 

/ 

- 


Track 

31 - 

34 

/ 

Sektor 

16 

Tr ac k 

35 


/ 

Sektor 

6 


Davon enthalten die Blöcke T1/S20 und T2/620 die in die Floppy 
zu ladende Software für den schnellen Datentransfer unter PROFI 
PASCAL. Die Blöcke T18/S0 und T1B/S1 beinhalten Directory und 
BAM des regulären DOS, während auf den Blöcken T18/S9, S10, S18 
sowie T17/S20, T16/S20, T15/S20 und T14/S20 die Boot-Software 
für das PROFI PASCAL - System abgespeiehert ist. 

Die 320 Sektoren der "Pascal-Diekette" werden nicht einzeln im 
Directory des Pascal-DOS verwaltet, sondern immer je 8 zu einem 
Block zusammengefaßt (Cluster). Ein solcher Block umfaßt demnach 
8 x 512 Bytes =» 4.096 Bytes bzw. 4 KBytes. Folglich werden die 
unter Pascal-DOS einzurichtenden Files in solche Blockeinheiten 
eingeteilt auf der Diskette verwaltet. Der von einem File 
belegte Diskettenplatz ist also immer das n-fache solcher 
Blöcke, wobei der File-Zugriff jeweils in 512-Bytes-Sektoren 
erfolgt. 
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Dieses blockweise Zusammen*assen der Sektoren führt zu insgesamt 
40 Blöcken auf einer Diskette. Diese werden im Directory neben 
weiteren 40 für die eventuell in einem Diskettenverbund 
hinzukommende zweite Diskette einzeln ausgewiesen, d.h. sie 
enthalten die Information, ob sie frei sind (#0) oder belegt 
sind. In einem solchen Falle ist als Blackkenner die Nummer des 
Folgeblocks eingetragen (#1..#79) oder, wenn es sich um den 
letzten Block einer Kette handelt, eine Schlußinformation. Diese 
Schlußinformation setzt sich zusammen aus der als Folgeblock 
nicht mehr möglichen Zahl #80 zuzüglich der in diesem letzten 
Block bis zum File-Ende (EOF) benötigten "1541“-B1öcke (256 
Bytes groß). So bedeutet z.B. der Blockkenner 91, daß es sich um 
den letzten Block handelt und daß in diesem Block noch 11 ganze 
256 Bytes große "1541"-B1öcke belegt sind. Darüber hinaus sind 
die Werte #254 für gesperrte und #255 für reservierte Blöcke 
vorgesehen (siehe Abschnitt 6.1.2). 


Der Anfangsblock (Block 0) einer jeden Diskette ist für die 
interne Verwaltung reserviert (#255). Aus diesem Grunde kann 
Block 0 auch nie als Folgeblock einer Diskettenaufzeichnung in 
Frage kommen; #0 steht als "Frei-Markierung" zur Verfügung. 
Innerhalb des Blockes 0 enthält der Sektor 0 das Directory des 
Pascal-DOS. Der Aufbau dieses Directorys ist weiter unten in 
einer schematischen Darstellung wiedergegeben. Die weiteren 
Sektoren 1..5 einschließlich des Blockes 0 sind für die Ablage 
der besonderen Fi 1e-Zusatzinformationen (Advices) gedacht. Die 
restlichen Sektoren 6 und 7 stehen zur freien Verfügung. 


Die bereits erwähnten Routinen GET-Sektor und PUT-Sektor 
erlauben den Zugriff auf jeden der 320 Sektoren. Sie können mit 
Hilfe dieser Routinen und der Möglichkeit des Sperrens von 
Blöcken ein eigenes File- bzw. Disketten-Handling oder Datei- 
Management organisieren. Auch können Sie über diese beiden 
Routinen unter Programmkontrol1e auf das Directory zugreifen. 
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Sie brauchen lediglich in Ihrem Programm die genannten Routinen 
als User-Funktionen 

USERFUNC GETSEKTOR( LAUF NE RK, SEKTOR, RANPOINT ER-.INTEGER):BOOLEAN; 

bzw. 

USERFUNC PUTSEKTOR(LAUFNERK,SEKTOR,RANPOINTER:INTEGER):BOOLEAN; 

zu deklarieren und mit SETADR die oben erwähnten Adressen zu 
vereinbaren. Beim Aufruf der Funktionen übergeben Sie — wie 
deklariert - Laufwerksnummer, Sektor und den RAM-Pointer aut den 
zu transferierenden Spei eherbereich. Sollten Sie den zu über¬ 
tragenden Speicherbereich als Variable deklariert haben, so 
müssen Sie der Funktion als Parameter die Variablenadresse (mit 
LOCALITY) übergeben. Der Rückgabewert der Funktionen ist FALSE 
bei f ehl erha-f ter Ausführung und TRUE bei korrekter Ausführung. 


In meinen eigenen Programmen wird der Zugriff auf das Directory 
in gleicher Manier vorgenommen. Dabei wird das Directory in 
einen entsprechend deklarierten Variab1enbereich geladen. Diese 
Deklaration hat folgenden Aufbau: 


{Beginn (oberes Ende) des Directory> 
AUSGLEICH :BYTE; 

WORKBLOCK :BYTE; 


BLOCKTAFEL :ARRAY 

CO. 

. 79 3 

OF 

BYTE; 

LASTBYTE :ARRAY 

CO. 

.373 

OF 

BYTE; 

STARTBLOCK :ARRAY 

CO. 

.373 

OF 

BYTE; 

FIXFLAG :SET OF 

0 . 

.37; 



WORKNAME :ALFA; 





TITELTAFEL iARRAY 

CO. 

.373 

OF 

ALFA; 


DISCNAME :ALFA; 

DISCNUMMER :BYTE; 

DISCSIZE c BYTE; 

{Ende (unteres Ende) des Directorys) 
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Diese Variablendeklaration beschreibt exakt die im -folgenden 
detailliert dargestellte Aufteilung des 512 Bytes großen Sektors 
mi t 


der logischen 

Nr. 0 

, der 

das Directory der 

Pascal-DOS 

:häl t: 







Adresse 

0 


($000) 


Diskettengröße 

(0 oder 1) 

Adresse 

1 


($001) 


Diskettennummer 

(0 oder 1) 

Adresse 

2. 

.9 

($002. 

. $009) 

Disketenname 

(ALFA) 

Adresse 

10. 

.313 

($0ÖA. 

.$139) 

bis zu 38 File-Namen (ALFA) 

Adresse 

313. 

.321 

($ 13A. 

. $141) 

temporärer Arbeitsname (ALFA) 

Adresse 

321. 

.353 

($142. 

.$161) 

32 * 8 Bits, davon 

die ersten 






38 als L0CK-F1ag 


Adresse 

354. 

.391 

($162. 

.$187) 

38 * 1 Byte als Position von 






EOF im letzten " 

1541"—Block 






innerhalb des Schlußblocks 

Adresse 

392. 

.429 

($188. 

. $1AD) 

38 * Startblock 

in Reihen- 






folge der File-Namen 

Adresse 

430. 

. 509 

($ 1AE. 

. $1FD) 

80 * 1 Byte für 

Blocktafel 

Adresse 

510 


($1FE) 


temporärer Arbeitsblock 

Adresse 

511 


($1FF) 


Füllbyte 



ACHTUNG! 

Machen Sie sich auf Testdisketten erst mit dem Aufbau des 
Pascal-DOS ausgiebig vertraut, bevor Sie programmgesteuert 
entsprechende Manipulationen im Directory oder auf der Diskette 
vornehmen. Die Reparatur eines zerstörten Directorys ist sehr 
mühsam und zeitraubend. Andererseits läßt es sich durch die 
vorgestellte Variablendeklaration - sobald Sie damit vertraut 
sind - äußerst elegant handhaben. 
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6 PROGRAMMBEI BP IELE UND GRAFIKERNEITERUNGEN 

8.1 DAG EDITOR-PRGGRAMM 


Als Demonstrationsbeispiel ist das komplette Editor—Programm 
au-f gel i stet. Es ist das Listing des im Rahmen von PROFI PASCAL 
benutzten Editors. Sie haben anhand dieses Programmlistings die 
Möglichkeit, eigene Erweiterungen oder Verbesserungen am Editor 
varzunehmen. Bei der Entwicklung des Programms wurde versucht, 
einen Kompromiß zwischen guter Programmstruktur, Effizienz des 
Programmcodes und schneller Ausführungsgeschwindigkeit zu 
finden. Das Listing veranschaulicht auch die Verwendung 
eingebauter Assembler-Routinen, die hier aus Speed-Gründen 
benutzt wurden. Darüber hinaus zeigt sich an einigen Stellen 
(AUTO-LINING-MODE) die Möglichkeit der maschinennahen 
Programmierung auch auf der Pascal-Ebene. 


{PASCAL-TEXT-EDITORJ 


PROGRAM EDITOR; 


LABEL 

99; 




CONST 

BUFFER 1 

«♦F300; 

KEY_CNT 

= ^C6; 


KEY_BUF 

=♦0277; 

MAXLW_NR 



CRT_DVC 

=0; 

BCSP 

=CHR(^9D> 


CRSRUP 

=CHR($91) 

; CRTN 

=CHR(♦D); 


SCRNLENG 

=80; 

LWTEMP 

=^035F; 


WARMFLG 

=♦360; 

ADR_EXP0 

=♦0361; 


ADR_PRPO 

=♦363; 

ADR_C0MM 

=♦0365; 


MAIN_JMP 

«♦CA12; 
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TYPE 


VAR 


HEAD ='* C=64 SOURCE-EDITOR 5.3 

ILL.LINE ='ILLEG. LINE£ ' ; 

NOTXT_FL ='NO TEXT-FILE'; 

SURE_NSS m 'SURE NOT SAVING THE SOURCE'; 

EX_N_SUC ='EXECUTION NOT SUCCESSFUL! ' ; 

ILL_SVN -'ILLEG. SYNTAX'; 

RAM_OVER =*' RAM OVERFLOW ' ; 

TITLE_ND *'TITLE UNDEFINED'; 

ILL_TITLE='ILLEG. TITLE'; 

ILL_INPUT='ILLEG. INPUT'; 

TO_ ='TOs '; 

L_LEN_EX ='LINELENGTH EXCEEDED IN LINE:'; 
SURE_D_S ='SURE TO DELETE THE COMPLETE SOURCE'; 
HELP = ' HELF* FOR: ' ; 

BYTE_FREE='O BYTES FREE!'; 

ONLY_ENT =' PLEASE ONLY ENTER:'; 

DRV_MAP *'DRIVE(MAP)'; 

CONFIRM ='CONFIRM "'; 

COM_IGN ='COMMAND IGNORED!'; 


REF = --EINTRG; 

EINTRG * RECORD 

NR:INTEGER; 

NX:REF; 

ST:STRING 
END; 

BUFFSIZE = ARRAY CO..51II OF BYTE; 

EINGABE « ARRAY CO..PRED(SCRNLENG)I OF CHAR; 


SOURCE 

LOADDAT 

LINE,TRNSLINE,TMPLINE,FIRST 
VON,BIS,HNTR,NUM,AUTO_NUM,DRIVE 
ERSATZ 
CH 

TI TEL,SUCHSTR 

NOT.DEF,SAVED,AUTO_FLAG 

BEGINHEAP,LFDHEAP,ADRPOI 

COMMON 

ZIFFER,BUCHSTAB 


:TEXT; 

:FILE OF BUFFSIZE; 
: REF; 

:INTEGER; 

:EINGABE; 

:CHAR; 

:STRING; 

:BOOLEAN; 

:"INTEGER; 
e ALFA; 

:SET OF '0'..'9'; 
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XTRNFUNC MAP_EXT :BOOLEAN; 

FUNCTION COMPARE (SUSTR,TESTR:STRINB;STRTPOSs BYTE):BYTE 
ASSEMBLE; 


; #*•#*•**#******•#****#**#* 
** SEARCH — ROUTINE * 

;*********************** 


POI 

.DL 

STKPOI+4 

HBAS 

. DL 

STKPOI+6 

TEMP 

.DL 

STKPOI+B 

! 

START 

LDY 

£4 

LOOP 

LDA 

(STKPOI),Y 


STA 

POI-1,Y 


DEY 



BNE 

LOOP 


LDA 

(HBAS),Y 


STA 

*TEMF* 


SEC 



LDA 

(POI),Y 


SBC 

*TEMP 


BCC 

EXIT 


SBC 

(STKPOI),Y 


BCC 

EXIT 


STA 

♦ TEMF'+l 


CLC 



LDA 

(STKPOI),Y 


TAX 



ADC 

*POI 


STA*POI 


BCC 

LOOP1 


INC 

*POI+l 

LOOP 1 

LDY 

*TEMP 


I NX 


L00P2 

• 
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L00P2 

LDA 

(POI),Y 


CMP 

(HBAS),Y 


BNE 

INCTEST 


DEY 



BNE 

L00P2 


BEQ 

EXIT 

INCTEST 

INC 

♦POI 


BNE 

INCTEST1 


INC 

♦PO 1 + 1 

INCTEST1 

DEC 

♦TEMP+1 


BPL 

LOOP 1 


LDX 

£0 

EXIT 

TXA 



LDY 

£5 


STA 

(STKPOI),Y 


TYA 



CLC 



ADC 

♦STKPQI 


STA 

♦STKPOI 


BCC 

EX I T1 


INC 

♦STKPQI+1 

EX IT1 

RTS 


5 

m 

z 



PROCEDURE JUMPMAIH /ASSEMBLE; 

JMP MAIN_JMP 
. EN 

PROCEDURE STOP (MESSAGE:STRING); 

BEGIN 

WRITE(MESSAGE, ' ! ' , ' ' )j 

WRITELN(EX_N_SUC);AUTO_FLAG« =FALSE; 
GOTO 99 
END; 

PROCEDURE SYN_STOP; 

BEGIN STOP <ILL_SVN) END; 
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PROCEDURE OV_STOP; 

BEGIN STOP(RAM_OVER) END; 

PROCEDURE TEST_SURE (MSGs STRING)$ 

BEGIN 

READLN;WRITE(MSG,'? Y/N',BCSP>; 

READ(CH )5 WRITELN; 

IF CH<>'Y' THEN BEGIN WRITELN(COM_IGN);GOTO 99 END 
END; 

PROCEDURE TEST_FOR_SAVE ; 

BEGIN 

IF NOT SAVED THEN TEST_SL)RE (SURE_NSS) 

END; 

PROCEDURE WAIT_BRK; 

PROCEDURE ABBRUCH ; 

BEGIN 

IF EOF THEN BEGIN READLN;OUTDVC<CRT_DVC,O);GOTO 99 END 
END; 

BEGIN 

ABBRUCH; 

IF ANYKEY THEN 
IF GETKEY=' ' THEN 

REPEAT 

WH ILE NOT ANYKEY DO ABBRUCH 
UNTIL GETKEY*' ' 

END; 

PROCEDURE 10H _SPACE ; 

BEGIN WHILE CH=' ' DO READ(CH) END; 

PROCEDURE OETCH ; 

BEGIN READ(CH);IGN_SPACE END; 
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PROCEDURE TEST_SYNTAX; 

BEGIN 

IF EOLN THEN SYN_STOP;GETCH; 

IF (CH< > ': ') OR EOLN THEN SYN_STOP 
END; 

PROCEDURE SET_LAST ; 

BEGIN LINE" 1 . NR: »MAX INT; LINE^. NX: *NIL; MARK (LFDHEAP) END; 

PROCEDURE CLEAR ; 

BEGIN 

RELEASE (BEGINHEAP) ; NEW (LINE); SET_LAST | FIRST: =»L I NE; 
SAVED :=TRUE 
END; 

PROCEDURE QET_HUM{\tC\R LN_NR: INTEGER) ; 

BEGIN 

IF NOT (CH IN ZIFFER) THEN BYN_STOP; 

LN_NR:=0; 

WHILE CH IN ZIFFER DO 
BEGIN 

IF LN_NR >3275 THEN STOP(ILL_LINE); 

LN_NR:=10*LN_NR - 48 + ORD(CH); 

IF NOT EOLN AND (INPUT''- IN ZIFFER) THEN READ (CH) 

ELSE CH:=' ' 

END 

END; 

PROCEDURE GET_ZHE1T (TESTCH:CHAR); 

BEGIN 

GETCH; 

IF CHOTESTCH THEN SYN_STOP; 

IF NOT EOLN THEN BEGIN GETCH; GET_NUM(BIS) END 
END; 
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PROCEDURE VOHJB1S; 

BEGIN 

VON :=0;BIS:=PRED(MAX INT); 

IF NOT EOLN THEN 
BEGIN 
GETCH; 

IF CH='-' THEN 
BEGIN 

IF EOLN THEN SYN_STOP; 

GETCH;GET_NUM(BIS) 

END 

ELSE 

BEGIN 

GET_NUM(VON); 

IF NOT EOLN THEN GET_ZWEIT <'-') ELSE BIS:=VON 
END 
END 
END? 


PROCEDURE QETJT1TEL (FOR_GET:BOOLEAN); 
BEGIN 

TEST_SYNTAX; 

IF INPUTTHEN 
BEGIN 

IF NOT_DEF THEN STOP(TITLE_ND); 

IF FOR_GET THEN TEST_FOR_SAVE 
END 
ELSE 
BEGIN 

IF NOT(INPUT v IN BUCHSTAB) THEN 
STOP(ILL_TITLE); 

READ(TI TEL)? 

IF FOR_GET THEN TEST_FOR_SAVE; 
NQT_DEFa =FALSE;COMMON A :=TITEL 
END 
END; 
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PROCEDURE REHUUBER; 

BEGIN 

NUMs =1000; LINE: =FIR6T $ 

WHILE LINE^.NXONIL DO 

BEGIN LINE' - . NRs =NUM; NUMs =NUM+5; LINE: »LINE'" - . NX END 
END; 

PROCEDURE PREPARE; 

BEGIN 

SETDRV (DRIVE); NAME (SOURCE , COMMON" - ) ; 

MEMC LWTEMP 3:=L0W(DRIVE) 

END; 

PROCEDURE SAV_SRCE (F0R_PUT:BOOLEAN); 

BEGIN 

GET_TITEL(FALSE); 

READLN; 

WRITE(CONFIRM,COMMON' , ', ',DRIVE, '"? N/Y',BCSP); 

READ(CH);WRITELN; 

IF CHO'Y' THEN BEGIN WRITELN<C0M_IGN);GOTO 99 END; 
PREPARE; 

IF FOR_PUT THEN REWRITE(SOURCE) 

ELSE 

BEGIN 

RESET(SOURCE); 

WHILE NOT EOF(SOURCE) DO READLN(SOURCE) 

END; 

LINE:=FIRST; 

WHILE LINE" .NX< >NIL DO 

BEGIN WRITELN(SOURCE,LINE".ST);LINE:=LINE .NX END; 
CLOSE(SOURCE);SAVED:=TRUE 
END; 
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PROCEDURE LOAD__SRCE ; 

VAR CNT:INTEGER; 

BEGIN 

PREPARE; 

RESET(SOURCE);CNT:=0; 

WHILE(SOURCE'C>CRTN) AND (CNT<*80) AND NOT EOF(SOURCE) DO 
BEGIN 

CNTs-SUCC(CNT); 

IF (CNT>80) OR (SQURCE'X ' ') THEN 

BEGIN CLOSE(SOURCE);STOP(NOTXT_FL) END; 

GET(SOURCE) 

END; 

IF SOURCEX >CRTN TEHN BEGIN CLOSE(SOURCE);STOP(NOTXT_FL) END 
CLOSE(SOURCE);RESET(SOURCE)> 

WHILE NOT EOF(SOURCE) DO 
BEGIN 

LINE -.NR:=NUM;READLN(SOURCE,LINE .ST) ;NUM:=NUM +5; 

IF FREE'*3 THEN 

BEGIN SET_LAST;CLOSE(SOURCE);OV_STOP END; 

NEW (TMPLI NE) 5 LI NE '-.NX: «TliPL I NE; LINE: =TMPL I NE 
END; 

SET_LAST; CLOSE (SOURCE) 

END; 

PROCEDURE SUCH (LN_NR:INTEGER); 

BEGIN 

LINE:«FIRST;WHILE LINE NR<LN_NR DO LINE:=LINE'.NX 
END; 

PROCEDURE CHANGE ; 

VAR 

ALT_ ZEIL;NEU_ZEIL:EINGABE; 

POSITION:BYTE; 

SUCHLEN,ALTLEN,NEULEN,ERSLEN,CMPLEN,DELTA,LAUF: INTEGER; 

SPEZ:RECORD CASE INTEGER OF 
0: (HALD: " INTEGER); 

1:(LENG: -BYTE); 

2:(ADRS:INTEGER) 

END; 
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BEOJN 

TEST_SYNTAX ; READLN (SUCHSTR) ; SUCHLEN: “LEN (SUCHSTR) ; 

MARK(SPE Z.HALD); 

WRITE(TO_);READ(TITEL);WRITELN;RESET(INPUT )5 
IF EOLN THEN ERSLEN:*0 ELSE ERSLEN:=LEN(TITEL )5 
DELTA:“SUCHLEN-ERSLEN;ERSATZ «“TITEL; 

RELEASE(SPEZ.HALD);LINE:“FIRST 5 POSITIQN:=£ 

WHILE (LINE. NX< >NIL) AND NOT EOF DO 
WITH LINE' DO 
BEGIN 

CMPLEN:=ORD(COMPARE(SUCHSTR,ST,POSITION ))5 
IF CMPLENOO THEN 
BEGIN 

ALTLEN:=LEN(ST); 

IF (ALTLEN-DELTA)>(SCRNLENG-4) THEN 
BEGIN WRITELN(L_LEN_EX);WRITELN(NR,ST)jGOTO 99 END; 
ALT_ZEILs=ST;NEU_ZEIL:=ALT_ZEIL; 

FOR LAUF:= 0 TO PRED(ERSLEN) DO 
NEU_ ZEIL C PRED(CMPLEN+LAUF) ]:“ERSAT Z i LAUF D; 

FOR LAUF:“ PRED(CMPLEN+SUCHLEN) TO PRED(ALTLEN) DO 
NEU_ZEILCLAUF-DELTA]:=ALT_ZEILCLAUF:; 

ST:=NEU_ZEIL;SPEZ.LENG':=LOW(ALTLEN-DELTA); 

SPEZ.ADRS:=HXS(SPEZ.ADRS,SUCC(ALTLEN-DELTA)); 

RELEASE(SPEZ.HALD);POS ITIN:“PRED(LOW(CMPLEN+ERSLEN)>; 
IF FREE03 THEN OV_STOP 
END 

ELSE BEGIN LINE:“NX;POSITION:=£0 END 
END 
END; 


PROCEDURE KOMMANDOS ; 

BEGIN 

WRITELN( COMMANDS = ...'); 

WRITELN('A:(PPENDSRC) L(IST) 
WRITELN( C:(HANGE) M(AP/DRIVE) 
WRITELN('D(ELETE) N(UMBERING) 

WRITELN('F:(IND) O(UTPUTDVC) 

WRITELN( G:(ETSOURCE) P:(UTSOURCE) 
WRITELN('H(ELP)');WRITELN 
END; 


Q(UIT) ' ); 

R(ENUMBER) ' >; 

S(HIFTLINE) ' ); 
U: (PDATESRC) ' ); 
V(ACANCY)'); 
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{MAIN PROGRAM} 

BEG1N CMAIN PROGRAMD 

IF MEMCWARMFLGD=£l then 

BEG IN WRITELN;RELEASE(LFDHEAP) END 

ELSE 

BEG IN 

ZIFFER:=C 0'.. *9'D;BUCHSTAB:=C'A'.. 'Z ' 1 
ALLOCATE(COMMON,ADR_COMM)j 
SETADR(MAP_EXT,BUFFER1); 

AUTO_FLAG:=FALSE;NEW(TRNSLINE); 

MARK(BEGINHEAP);MARK(LFDHEAP)jCLEAR; 
ALLOCATE(ADRPOI,ADR_PRPO); 

VON:«ADRPOI 

ALLOCATE(ADRPOI,ADR_EXPO); 

TDRPOI : =VON; 

NOT_DEF:=MEM C WARMFLG D <>£2; 

IF NOT NOT_DEF THEN 
BEG IN 

DRIVE:=ORD(MEM C LWTEMP:) ;NUM:=1000; 
LOAD_SRCE 
END 

ELSE DRIVE:*0; 

WRITELN; 

WRITELN(HEAD:34); 

WRITELN;KOMMANDOS; 

MEM C WARMFLG D:=£1;SAVED:=TRUE 
END; 
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REPEAT 

IF AUTO_FLAG THEN 
BEGIN 

WRITE(AUTQ_NUM,' 'sNUM); 

READLN(CH);WRITELN; 

MEMCKEY_BUF ] s *=LOW (CRSRUP ) ; MEMC9UCC (KEY_BUF) ]i=LOW(CRTN) ; 
MEMCKEY_CNT3:=£2; 

AUTÜ_NUM:=AUT0_NUM+5; 

IF AUTO_NUM>=32750 THEN STOP(ILL.LINE) 

END; 

READ(CH)|IGN_SPACE;WRITELN; 

IF CH IN ZIFFER THEN iZElLEHHUHHERH-E1NQABE} 

BEGIN 

GET_NUM(NUM);IF NUM<>AUT0_NUM-5 THEN AUTO_FLAG:«FALSE; 

SUCH(NUM); 

IF LINE A ‘. NR=NUM THEN 
IF EOLN THEN 

IF NOT AUTO_FLAG THEN LINE^s =LINENX' S 
ELSE AUTO_FLAG:«FALSE 
ELSE READ (LINE'*’. ST) 

ELSE 

IF NOT EOLN THEN 
BEGIN 

NEW(TMPLINE); 

TMPLINE'': =LINE"; LINE^. NRi *NUM; 

LI NE''.NX: =TMPL I NE; READ (LI NE' . ST) 

END 

ELSE AUTO_FLAG:=FALSE; 

IF AUTO_FLAG THEN 
BEGIN 

ERSATZ: =L INE .ST;NUM s-O; 

WHILE ERSÄTZENUM1*' * DO NUM s= SUCC(NUM) 

END; 

SAVED:*FALSE; 

IF FREE03 THEN OV_STOP; 

MARK. (LFDHEAP) 

END 
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ELSE {KOMMANDO-EINGABE} 

BEGIN 

AUTO_FLAGs =FALSE; CASE CH OF 

A t BEGIN {APPENDJ 

RENUMBER; GET_TITEL(FALSE);NOT_DEF:=TRUE;LOAD_SRCE 
END; 

C 'sBEGIN {CHANGE} 

CHANGE;SAVED:=FALSE 
END; 

Di BEGIN {DELETEJ 
VON_BIS; 

IF (V0N=0) AND (BIS=PRED(MAXINT)) THEN 
BEGIN 

TEST_SURE(SURE_D_S); 

CLEAR 

END 

ELSE 

IF VONOBIS THEN 
BEGIN 

SAVED:=FALSE; 

SUCH(VON);TMPLINE:=LINE; 

SUCH(SUCC(BIS));TMPLINEE:*LINE ‘ 

END 

END; 

Fi BEGIN {FIND} 

TEST_SYNTAX; 

READ(SUCHSTR);LINE:=FIRST; 

WHILE LINE^.NXONIL DO 
BEGIN 

IF COMPARE(SUCHSTR,LINE".ST,£0)<>£0 THEN 
WRITELN(LINEE.NR,LINEE.ST); 

LINE:=LINE .NX; 

WAIT_BRK 
END 
END; 
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ö'sBEGIN {GET} 

GET_TITEL(TRUE); 

CLEARjNUM:=1000 5 
LOAD_SRCE 
END; 

H :BEGIN £HELP> 

WRITELN(HELP,HEAD) ; 

WRITELN;KOMMANDOS 
END; 

L'bBEGIN {LIST} 

VON_BIS;SUCH(VON)? 

WH ILE LINE .NROBIS DO 
BEGIN 

WR I TELN (LI NE ' - . NR , LINE^. ST) ; 

LINE:=LINE'.NX; 

WAIT_BRK 

END 

END; 

M :BEGIN {MAP} 

READLN; 

WRITE(DRV_MAP,' = ',DRIVE,BCSP )5 
IF DRIVE>9 THEN WRITE(BCSP); 

READ(VON);WRITELN; 

IF (VONCO) OR (VON>MAXLW_NR) THEN STOP(ILL_INPUT) 
DRIVE:=VON; 

SETDRV(0);RESET(LOADDAT); 

GET(LOADDAT);GET(LOADDAT);GET(LOADDAT) ; 

CLOSE(LOADDAT); 

SETDRV(DRIVE); 

IF NOT MAP_EXT THEN 
BEGIN DRIVE:=0;SETDRV(0) END 
END; 
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H ':BEGIN CAUTO-NUMBERING> 

IF EOLN THEN 
BEGIN 

AUTQ_NUM:=1OOO ;LINE:=FIRST; 

WHILE LINE' . NXONIL DO 

BEGIN AUT0_NUMi=LINE .NR+5;LINE:=LINE .NX END 
END 
ELSE 
BEGIN 

GETCH;GET_NUM(AUT0_NUM) ; 

IF NOT EOLN THEN SYN_ST0P 
END; 

AUT0_FLAG:=TRUE;NUM:=0 
END; 

0'tIF EOLN THEN OUTDVC<CRT_DVC,0) {SET OUTPUT DEVICE> 
ELSE 
BEGIN 

GETCH;GET_NUM(VON);BIS:=0; 

IF NOT EOLN THEN GET_ZWEIT(','); 

IF NOT ((VON IN C0,4..73) AND (BIS<=15)) THEN 
STOP(ILL_INPUT); 

OUTDVC(VON,BIS) 

END; 

P :SAV_SRCE(TRUE); CPUT> 

Q ':BEGIN {QUIT> 

TEST_FOR_SAVE; 

OUTDVC(CRT_DVC,0); 

JUMPMAIN 

END; 

R' :RENUMBER; CRENUMEERJ 
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S'sBEGIN {SHIFTLINE} 

VON_BIS;TEST_SYNTAX; 

GETCH;GET_NUM(HNTR); 

IF (HNTR>=VON) AND (HNTR<=BIS) THEN STOP(ILL_INPUT); 
SUCH(SUCC(HNTR)); 

TRNSLINE A :=LINE";TMPLINE:=LINE; 

SUCH(VON )5 

TMPLINE 's =LINE";TMPLINE:=LINE; 

SUCH(SUCC(BIS)); 

TMPL INE" : =LINE" ; LINE s «TRNSL INE " 1 5 
RENUMBER;SAVED:=FALSE 
END; 

S’sBEGIN {UPDATE} 

NOT_DEF s «TRUE;SAV_SRCE(FALSE) 

END; 

V s WRITELN(FREE*25-77+ <FREE* 6 ) DIV 10,BYTE_FREE) 

ELSE 

BEGIN 

WRITELN(COM_IGN,ONLY_ENT); 

KOMMANDOS 

END 

END 

END; 

99: READLN 

UNT1L FALSE 
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0.2 DA8 PROGRAMM "HUEY" 

Als weiteres Progr ammbei spi el -finden Sie hier das Sour ce-Li st 1 ng 
des Programms "HUEY" abgedruckt. Auch bei diesem Programm - es 
simuliert einen "RPN"-Taschenrechner mit diversen Funktionen - 
wurde das in Abschnitt 4.6 erläuterte Sonderverfahren zur 
Behandlung von Runtime-Feh1 ern eingesetzt. Gerade bei den 
transzendenten mathematischen Funktionen können solche Fehler 
sehr leicht auftreten. Der Struktur i er t e und modulare Au-fbau 
dieses Programms macht es Ihnen leicht, eigene Erweiterungen und 
Ergänzungen einzubauen. Das kompilierte Programm ist auf der 
Systemdiskette unter dem Namen HUEY abgespeichert. 


<* #*************************** *) 
(* HUEY *> 

<* mmmmmmm *) 

<* DIESES PRGM SIMULIERT DIE *> 
<* ARBEIT MIT EINEM TASCHEN- *) 
<* RECHNER, DER IN UMGEKEHR- *> 
<* TER POLNISCHER NOTATION *) 
(* BEDIENT WIRD (RPN). *> 

<* ALLE EINGABEN MIT "RETURN" *) 
<* ABGESCHLIESSEN! *) 

(# **************************** *) 


PRQQRAM HUEY; 

COHST MAXBEF =79; 

WARMFLG =$360; 
ADR_EXP0 =$361; 

VAR REG 

STACK 

LSTX,S1,KEYIN,ZW,QU 
LAUF,KON,STELLEN,FELD 
CX 

LSTRI 
BEFARR 
ADRPOI,HEAP 


CUP =CHR($91); 

ADR_PRPQ =$363; 


: ( X , Y , Z , T) ; 

:ARRAYC X..T3 OF REAL; 

sREAL; 

sINTEGER; 

sCHAR; 

iSTRING; 

:ARRAYCO..MAXBEF3OF CHAR; 
8 "INTEGER; 
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PROCEDURE EXIT ; 

ASSEMBLE; 

JMP *C200 
.EN 


PROCEDURE ENTERi 

BEGIN 

FOR REG:=Z DOWNTO X DO STACKCSUCC(REG)3:«STACKCREG3 
END; 

PROCEDURE CALCULATE <ERGEBNIS s REAL;SINGLEs BOOLEAN)| 
BEGIN 

LSTX s=STACKC X□;STACKC X3:=ERGEBNIS| 

IF NOT SINGLE THEN 

FOR REGs =Y TO Z DO ST ACK C REG3s =STACK C SUCC(REG)3 
END; 

PROCEDURE PRTSTK; 

BEGIN 

WRITELN(CUP,CUP,CUP,CUP,CUP,CUP) ; 

WRITELNCT = 10»STACKCT3sFELD:STELLEN); 

WRITELN('Z = 10,STACKCZ3:FELD*STELLEN); 

WRITELN('Y = 10,STACKCY38 FELD*STELLEN); 

WRITELN('X = ':10,STACKCX3:FELD:STELLEN); 

WRITELN;WRITELN<' ':39,CUP) 

END; 


PROCEDURE COMANDS ; 

BEGIN 

WRITELN;WRITELN; 

WRITELN('<< BEFEHLE FUER "HUEY" >> 
WRITELN('===================':29) ; 

WRITELN('A=ABSOLUT B=ROUND 

WRITELN('D=ROLL DOWN 
WRITELN('G=GETMEM 
WRITELN('K=KEHRWERT 
WRITELN('N=ENTER 
WRITELN('Q=SQUARE 
WRITELN('T=TANGENS 


*32) ; 


C=COSINUS') ; 
F-FRAC'); 

1=INTEGER'); 
M=MEM'); 


E=EXP 
H=CLEAR X 
L*LN 

0=0UTP.FORM. P-PI); 
R=SQROOT S=*S I NUS ' ) ; 

U=ROLL UP V=SIGN'); 
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WRITELN( W=CH.SIGN X*LAST X Y=X CH Y'); 

WRITELN('Z*ZUF.ZHL. @=ARCTAN');WRITELN; 

WRITELN<'RELATIONEN: < f >,=');WRITELN('RECHENOPRTs 
WRITELN;WRITELN;WRITELN;WRITELN;WRITELN; 

WRITELN;WRITELN;WRITELN;WRITELN;WRITELN; 

WRITELN(CUP,CUP,CUP,CUP,CUP) 

END 5 


PROCEDURE JOB; 

BEGIN 

CASE CX OF 

A :CALCULATE(ABS(STACK ! X 3 ) ,TRUE); 
ff :CALCULATE(ARCTAN(STACK C XI) ,TRUE); 
B i CALCULATE(ROUND(STACK ! X 3 > , TRUE); 
C i CALCULATE(COS(STACKC XI) ,TRUE); 

D i BEGIN 

KEYIN:=STACKC XI; 

FOR REG:= X TO Z DO 
STACK C REGI:-STACK! SUCC(REG)3; 
STACKCT3:«KEYIN 
end 5 

E :CALCULATE(EXP(STACKCX3),TRUE); 

F ':CALCULATE(FRAC(STACKE X 3) ,TRUE); 

O iBEGIN ENTER;STACKC X 3:=S1 END; 

H iSTACK!X3:*0.0; 

I -.CALCULATE ( TRUNC (STACK! X 3 ) , TRUE) ; 

K :CALCULATE(1/STACK!X3,TRUE); 

L «CALCULATE(LN(STACKCX3),TRUE); 

H :S1:=STACKCX 3; 

H :ENTER; 
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'fl'«BE 6 IN 

LAUF s » I NT (STACK C X 3 ) 5 
IF LAUF < 12 THEN 
IF LAUF > 0 THEN 
BEGIN 

WRITELN(CUP,CUP,CUP,CUP,CUP,' '*39); 

WRITELN(' '«39);WRITELN(' '«39); 

WRITELN(' '*39);WRITELN; 

STELLEN«»-LAUF; 

FELD:=ABS(INT(ROUND(100*FRAC(LAUF)))) 
END 
END; 

P 1 BEGIN ENTER;STACKC X3:«PI END; 

Q i CALCULATE < SQR(STACK C X 3 ) ,TRUE >; 

R ' *CALCULATE< SQRT(STACK C X3) ,TRUE); 

S «CALCULATE(SIN(STACKCX3),TRUE); 

U «BEGIN 

KEYIN« «STACK C T 3;ENTER;STACK C X 3 s «KEYIN 
END; 

V «CALCULATE(SIGN(STACKCX3),TRUE); 

U «STACKC X3 s«-STACKC X3; 

X x BEGIN ENTER;STACKE X 3:«LSTX END; 

Y «BEGIN 

KEY IN s «STACK C X 3;STACK C X 3 s »STACK C Y 3; 
STACKCY3«»KEYIN 
END; 

2 «BEGIN ENTER;STACKCX3:«RANDOM END; 

< ‘x CALCULATE(ORD(STACK C Y 3 < STACK C X 3) ,FALSE); 
'-' : CALCULATE (ORD (ST ACK. C X 3 »ST ACK C Y 3 ) , FALSE) ; 

> t CALCULATE(ORD(STACK C Y 3 >STACK C X 3) ,FALBE); 

* sCALCULATE(STACK C X 3 +STACKC Y 3,FALSE); 

'-'« CALCULATE(STACKCY3-STACKC X 3,FALSE); 

'*'« CALCULATE(STACKC X 3*STACKC Y3,FALSE); 

'/'«CALCULATE(STACKCY3/STACKCX3,FALSE) 

END 

END; 
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(* ********************* *) 
(* *** MAIN OF HUEY *** *> 
(* ********************* *) 


BEOIN 

IF MEM C WARMFLG 3 *#0 THEN 
BEGIN 

MARK(HEAP);COMANDS;LSTRI:='SXC/'; 

BEFARR:=LSTRI|MEM[WARMFLG3 3 =#1; 

ALLOCATE <ADRPOI,ADR_PRPO); 

LAUFs «ADRPOI~;ALLOCATE < ADRPOI,ADR_EXPO) ; 

ADRPOI‘ S :=«LAUF 5 
END 
ELSE 
BEGIN 

WRITELN('DRUECKE "SPACE" !' *32, CUP )5 
WHILE GETKEYO' ' DO; WRITELN ( ' *:39,CUP); 

WRITELN(CUP,' ' *39,CUP,CUP); 

WRITELN(' '* 39,CUP) 

END; 

FÜR REG s* X TO T DO STACK[REG3s=0; 

S1* =0;FELD:=0;STELLEN:=-11;PRTSTK; 

WHILE NOT EOF DO 
BEGIN 

READ(CX);RESET(INPUT); 

WHILE (INPUT' N =' ') AND NOT EOLN DO READ(CX); 

IF INPUT^ IN C'0'..'9'3 THEN 
BEGIN READLN(KEYIN);ENTER;STACK!X3 *=KEYIN END; 
ELSE 

BEGIN READ(CX);JOB;READLN END; 

PRTSTK;RELEASE(HEAP) 

END; 

EX IT 

END . 
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8.3 DAS GRAFIKPAKET 

Beim Arbeiten mit PROFI PASCAL brauchen Sie auf die Grafik- 
Fähigkeiten Ihres C64 nicht zu verzichten. Im Gegenteil, mit der 
hier gelisteten Routine, die in Source-Form auch auf der System¬ 
diskette unter dem Namen S_0RAF1K abgespeichert ist, haben Sie 
die Möglichkeit, unmittelbar in Ihrem Programm Routinen zum 
Bedienen des Grafik-Bi1dschirmes, zum Setzen/Löschen eines 
Punktes, zum Zeichnen/Löschen einer Linie usw. aufzurufen. Die 
Routine ist in ihrem äußeren Rahmen als Pascal-Prozedur angelegt 
und kann mit der Compiler-Anweisung 

' &1NC LUDE(S_GRAF1K) ' 

in Ihr jeweiliges Pascal-Programm integriert werden. Die 
Prozedur ist zu Gewährleistung der maximalen Ausf iihrungs- 
geschwindigkeit in Maschinensprache formuliert und kann selbst¬ 
verständlich von Ihnen bei Bedarf erweitert werden. Der Einbau 
dieses Grafikpaketes in ein übergeordnetes Pascal-Programm 
demonstriert das in Abschnitt S.3.1 wiedergegebene Programm 
"Hi 1bert-Kurven". Anhand dieses Beispiels können Sie sich 
bezüglich Einbau, Aufruf und ParameterVersorgung vertraut 
machen. 


(*-** **********************) 
<* *) 

<* QRAF1K-PAKET FUER C64 *) 
<* *) 

(************************* > 


PROCEDURE GRAFIK 

(COM:GRAFCOMMAND;WERT1,WERT2,WERT3,WERT4:INTEGER ); 

ASSEHBLE ; 
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CPUPORT 

.DL 

♦0001 

;DEFINIERT SPEICHER-KONFIG. 

VIDCTR 

.DL 

♦DOOO 

;VIDEOCONTROLER 

BITMAP 

.DL 

♦2000 

5 GRAFIKSCHIRM 

COLRAM 

.DL 

♦0800 

;FARBSCHIRM 

i 

TMF'MOD 

.DL 

♦FF01 

;DEFINITION TEMPORÄRER 

TMPPOI 

. DL 

♦FF02 

;SPEICHERZELLEN 

PLFLG 

. DL 

♦FF03 


5 

TMP 

.DL 

STKPOI+4 

I DEFINITION VON ZERO-PAGEN- 

XKOR 

. DL 

STKPO1+6 

;ZELLEN IM BEREICH DER 

YKOR 

.DL 

STKPOI+8 

;PROFI PASCAL DEFINITION 

FARBE 

.DL 

STKPOI+9 

;VIA STACKPOINTER 

XKOR 1 

.DL 

STKPO1+34 


ZW 

.DL 

STKPO1+36 


ZA 

.DL 

STKPO1+37 


MSK 

.DL 

STKPO1+38 


DIFO 

.DL 

STKPO1+39 


DIF1 

. DL 

STKPO1+40 


DIF2 

.DL 

STKPO1+41 


DIF3 

.DL 

STKPO1+42 


DIF4 

.DL 

STKPO1+43 


DIF5 

.DL 

STKPO1+44 


YKOR1 

.DL 

STKPO1+45 


5 

START 

LDA 

#1 

;I/O-BEREICH EINSCHALTEN UND 


ORA 

♦CPUPORT 

;PASCAL-RAM AUSSCHALTEN 


STA 

♦CPUPORT 



LDY 

#8 



LDA 

(STKPOI),Y 

;GRAFIKKOMMANDO VOM STACK 


ASL 

A 

;ABRUFEN UND ALS ZEIGER IN 


TAX 


;DIE SPRUNGTABELLE BENUTZEN. 


LDA 

SPRGTAB,X 



STA 

♦TMP 



LDA 

SPRGTAB+1,X 



STA 

♦TMP+1 



JMP 

(TMP) 

;INDIREKT IN DIE AUFGERUFENE 


5 


;ROUT INE SPRINGEN. 
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SPRGTAB 


GRAFEIN 


GRAFAUS 


EXIT 


EX ITC 


.SA 

GRAFEIN 

5 GRAFIKSCHIRM EINSCHALTEN 

.SA 

GRAFAUS 

;GRAFIKSCHIRM AUSSCHALTEN 

.SA 

GCLEAR 

;GRAFIKSCHIRM LÖSCHEN 

.SA 

COLCLEAR 

;FARBSCHIRM LÖSCHEN 

.SA 

SETZEN 

;DOT SETZEN 

.SA 

LOESCHEN 

;DOT LÖSCHEN 

. SA 

LINESET 

;LINIE ZEICHNEN 

.SA 

LINECLR 

5 LINIE LÖSCHEN 

.SA 

REVERS 

jGRAFIKSCHIRM INVERTIEREN 

I 

LDA 

VIDCTR+17 

;GRAFIKSCHIRM EINSCHALTEN 

STA 

TMPMOD 


LDA 

VIDCTR+24 


STA 

TMPPOI 


LDA 

#*3B 


STA 

VIDCTR+17 

;BITMAF-MODE 

LDA 

#♦28 


STA 

VIDCTR+24 

{BITMAP NACH *2000 DEFINIEREN 

JMP 

EXIT 


? 

LDA 

TMPMOD 

5 GRAFIKSCHIRM AUSSCHALTEN 

STA 

VIDCTR+17 


LDA 

TMPPOI 


STA 

VIDCTR+24 


1 

LDA 

#*FC 

;PROGRAMMAUSGANG 

AND 

♦CPUPORT 

;PASCAL-RAM EINSCHALTEN UND 

STA 

*CPUPORT 

;I/O-BEREICH AUSSCHALTEN 

CLC 


;PASCAL-STACK UM INSGESAMT 

LDA 

#9 

j9 BYTES ZURUECKSETZEN 

ADC 

♦STKPOI 

;(1 BYTE + 4 INTEGER) 

STA 

♦STKPOI 


BCC 

EXITO 


INC 

♦STKPOI+1 


RTS 


;ZURUECK ZUR PASCAL 


J 
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GCLEAR 

LDA 

#H,BITMAP 

;GRAFIKSCHIRM LÖSCHEN 


STA 

♦TMP+1 



LDY 

#L,BITMAP 



STY 

♦ TMP 



LDX 

#♦20 ;# OF PAGES 



TYA 



GCLEAR1 

STA 

(TMP),Y 



INY 




BNE 

GCLEAR1 



INC 

♦TMP+1 



DEX 




BNE 

GCLEAR1 



JMP 

EXIT 


COLCLEAR 

5 

DEY 


;FARBSCHIRM LÖSCHEN 


DEY 




LDA 

(STKF'OI) ,Y 

;LOWBYTE VON WERT 1 ALS 


ASL 

A 

;BILDFARBE VOM STACK ABRUFEN 


ASL 

A 



ASL 

A 



ASL 

A 



STA 

♦FARBE 



DEY 




DEY 




LDA 

CSTKPOI),Y 

;LOWBYTE VON WERT2 ALS 


AND 

#$0F 

;RAHMENFARBE VOM STACK 


ORA 

♦FARBE 

;ABRUFEN UND MIT BILDFARBE 


LDX 

#L,COLRAM 

;ZUSAMMEN ABSPEICHERN 


STX 

♦ TMP 



LDX 

#H,COLRAM 



STX 

♦TMP+1 



LDY 

#0 



LDX 

#3 
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CQLCLO 

STA 

(TMP),Y 

;FÄRBINFORMATION IM FARB- 


DEY 


;RAM ABSPEICHERN 


BNE 

COLCLO 



DEX 




BMI 

COLCL1 



INC 

*TMP+1 



BNE 

COLCLO 



LDY 

#*E8 



BNE 

COLCLO 


COLCL1 

STA 

(TMP),Y 



JMP 

EXIT 


LOESCHEN 

1 

JSR 

SETO 

;DOT LÖSCHEN 


JMP 

EXIT 


SETZEN 

1 

JSR 

SETI 

;DOT SETZEN 


JMP 

> 

LDX 

EXIT 


SETO 

#♦80 

;ROUTINE ZUM LÖSCHEN BZW. 


.BY 

*2C 


SETI 

LDX 

#0 

5 SETZEN EINES DOT-PUNKTES 


STX 

PLFLG 



JSR 

TESTCOR 

;KOORDINATEN HOLEN U. TESTEN 


JSR 

HPOSN 

;SPEICHER POSITION BERECHNEN 


JMP 

PLOT 

;DOT LÖSCHEN/SETZEN 

PLOT 

i 

LDY 

#0 

; DOT IN BERECHN. POSITION 


LDA 

*MSK 

;LÖSCHEN/SETZEN 


BIT 

PLFLG 



BPL 

PLOTO 



EOR 

#*FF 



AND 

(TMP),Y 



.BY 

*2C 


PLOTO 

ORA 

(TMP),Y 



STA 

(TMP),Y 



RTS 

S 

TEST_X_Y JSR TESTCOR 
RTS 
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TESTCOR 

DEY 




LDA 

(STKPOI),Y 

;HIBYTE VON WERT 1 BZW. WERT3 


STA 

♦XKOR+1 

;(=X) VOM STACK ABRUFEN 


DEY 




CMP 

#1 

5 > 1 ? 


BCC 

TEST 1 



BNE 

IGNOR 

;IGNORIEREN UND EXIT 


LDA 

#*3F 



CMP 

(STKPOI),Y 

;>- 320 ? 


BCC 

IGNOR 

;IGNORIEREN UND EXIT 

TEST 1 

LDA 

(STKPOI),Y 

;LOBYTE VON WERT1 BZW. WERT3 


STA 

♦ XKOR 

;VOM ABRUFEN UND SPEICHERN 


DEY 




LDA 

(STKPOI),Y 

;HIBYTE VON WERT2 BZW. WERT4 


BNE 

IGNOR 

; (=*»Y) VOM STACK ABRUFEN 


DEY 


;<> 0 ?: IGNONIEREN/EX IT 


LDA 

(STKPOI),Y 

;LOBYTE VON WERT2 BZW. WERT4 


CMP 

#200 

; VOM STACK ABRUFEN; >■= 200 ? 


BCS 

IGNOR 

;IGNORIEREN UND EXIT 


STA 

♦YKOR 

;Y-KQORDINATE SPEICHERN 


RTS 



IGNÜR 

5 

PLA 


;KOMMANDOAUSF ÜHRUNB 


PLA 


;WEGEN ILLEGALER WERTE 


PLA 


;IGNORIEREN; 


PLA 


;SUBROUTINEN-LEVEL KÖRRIG. 


JMP 

EXIT 

;ZUM PROGRAMMAUSGANG 

HPOSN 

5 

AND 

#7 

;BERECHNUNG DER SPEICHER- 


STA 

♦ TMP 

;ADRESSEN 


LDA 

♦XKOR+1 



STA 

♦TMP-*-1 



LDA 

♦YKOR 



LSR 

A 



LSR 

A 



LSR 

A 



TAX 




LDA 

♦ XKOR 



AND 

#*F8 



? 
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CLC 




ADC 

*TMP 



BCC 

HPOSNO 



INC 

*TMP+1 


HPOSNO 

CLC 




ADC 

LOWT AB,X 



STA 

♦ TMP 



LDA 

♦TMP+1 



ADC 

HIGHTAB,X 



ADC 

#H,BITMAP 



STA 

♦TMP+1 



LDA 

♦ XKOR 



AND 

#7 



TAX 




LDA 

BITTAB,X 



STA 

RTS 

; 

JSR 

*MSK 


LINECLR 

SETO 

;LINIE LÖSCHEN 


JMP 

LINEO 


LINESET 

JSR 

SETI 

;LINIE ZEICHNEN 

LINEO 

LDA 

*YKOR 

;ERSTER KOORDINATENSATZ 


STA 

♦YKOR1 

;UMSPEICHERN 


LDA 

*XKOR 



STA 

♦XKOR1 



LDA 

♦XKOR+1 



STA 

♦XKOR1+1 



LDY 

#4 

5 ZWEITER KOORDINATENSATZ VOM 


JSR 

TESTCOR 

pSTACK ABRUFEN, TESTEN UND 


LDA 

*XKOR 

;ÜBERNEHMEN 


LDX 

♦ XKOR-H 



LDY 

♦ YKOR 

;GERADENSTEIGUNG BERECHNEN 


PHA 


;ABHÄNGIGE UND UNABHÄNGIGE 


LDA 

♦XKOR1+1 

;KOORDINATE BESTIMMEN 


LSR 

A 

;UNABHÄNGIGE INKREMENTIEREN 


LDA 

♦XKOR1 

;ABHÄNGIGE BERECHNEN 


ROR 

A 

;GERADENPUNKT LÖSCHEN/SETZEN 


LSR 

A 



LSR 

A 
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LINE3 


LINE4 


$ ; 


STA 

*ZW 


LDA 

#$FF 

PLA 



SBC 

*D IF1 

PHA 



STA 

*ZA 

SEC 



LDY 

*ZW 

SBC 

XKOR1 


BCS 

LINE5 

PHA 


L INE 1 

ASL 

A 

TXA 



JSR 

7) 

1 

r 

SBC 

XKORl+l 


SEC 


STA 

*DIF3 

LINE5 

LDA 

*DIF4 

BCS 

LINE3 


ADC 

*DIF2 

PLA 



STA 

*DIF4 

EOR 

#*FF 


LDA 

*D IF5 

ADC 

#1 


SBC 

#0 

PHA 


LINE2 

STA 

*DIF5 

LDA 

#0 


STY 

*ZW 

SBC 

*D IF3 


JSR 

PLOT 

STA 

*DIF 1 


I NX 


STA 

*DIF5 


BNE 

LINE6 

PLA 



INC 

*ZA 

STA 

*DIFO 


BNE 

LINE6 

STA 

*DIF4 


JMP 

EXIT 

PLA 


LINE6 

LDA 

*DIF3 

STA 

*XKOR1 


BCS 

LINE1 

STX 

*XK0R1+1 


JSR 

c 

1 

o 

TYA 



CLC 


CLC 



LDA 

*DIF4 

SBC 

*YK0R1 


ADC 

*DIFO 

BCC 

LINE4 


STA 

*D IF4 

EOR 

#$FF 


LDA 

*DIF5 

ADC 

#*FE 


ADC 

*DIF1 

STA 

*D IF2 


BVC 

LINE2 

STY 

*YK0R1 


5 


ROR 

*DIF3 


5 


SEC 



? 


SBC 

*DIFO 




TAX 



J 
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UNTEN 

INC 

♦TMP 


BNE 

UNTENO 


INC 

*TMF'+1 

UNTENO 

LDA 

♦TMP 


AND 

#7 


BNE 

UNTEN2 


INC 

♦TMP+1 


LDA 

#$38 

UNTEN1 

CLC 



ADC 

♦ TMP 


STA 

♦ TMP 


BCC 

UNTEN2 


INC 

♦TMP+1 

UNTEN2 

RTS 


c 

i 

o 

5 

BMI 

UNTEN 

OBEN 

5 

LDA 

♦ TMP 


BNE 

OBENO 


DEC 

♦TMP+1 

OBENO 

DEC 

♦TMP 


AND 

#7 


BNE 

UNTEN2 


DEC 

♦TMP+1 


DEC 

♦TMP+1 


LDA 

#$C8 


BNE 

UNTEN1 

RECHTS 

? 

LSR 

♦MSK 


BCC 

RECHTS2 


ROR 

♦MSK 


INY 



LDA 

#8 

RECHTS 1 

CLC 



ADC 

♦ TMP 


STA 

♦TMP 


BCC 

RECHTS2 


INC 

♦TMP+1 

RECHTS2 

RTS 



;GERADE ÜBERSCHREITET UNTEN 
;8*8-MATRIXFELD 


;GERADE VERLÄSST 8*B-FELD 

;GERADE ÜBERSCHREITET OBEN 
;8*8-MATRIXFELD 


;GERADE ÜBERSCHREITET RECHTS 
;8*B-MATRIXFELD 
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R_L 

L INKS 


REVERS 

REVERS1 


LOWTAB 

HIGHTAB 


BITTAB 


BPL 

RECHTS 

ASL 

*MSK 

BCC 

RECHTS2 

ROL 

*MSK 

DEC 

*TMP+1 

LDA 

#$F8 

BNE 

RECHTS1 

5 

LDY 

#0 

LDA 

#H,BITMAP 

STY 

*TMP 

STA 

*TMP+1 

LDX 

#$20 

LDA 

(TMP),Y 

EOR 

#$FF 

STA 

(TMP),Y 

INY 


BNE 

REVERS1 

INC 

*TMP+1 

DEX 


BNE 

REVERS1 

RTS 



;GERADE VERLÄSST 8*S-FELD 

;GERADE ÜBERSCHREITET LINKS 
;8*8-MATRIXFELD 


;GRAFIKSCHIRM INVERTIEREN 


BY 

$00 

$40 

$80 

$C0 


;MULT IPLIKATIONSTAFEL 

BY 

$00 

$40 

$80 

$co 


; LOBYTE 

BY 

$00 

$40 

$80 

$co 



BY 

$00 

$40 

$80 

$co 



BY 

$00 

$40 

$80 

$co 



BY 

$00 

$40 

$80 

$co 

$00 


BY 

$00 

$01 

$02 

$03 


1 MULTIPLIKAT IONSTAFEL 

BY 

$05 

$06 

$07 

$08 


;HI BYTE 

BY 

$0A 

$0B 

$0C 

$0D 



BY 

$0F 

$10 

$11 

$12 



BY 

$14 

$15 

$16 

$17 



BY 

$19 

$ 1A 

$ 1B 

$1C 

$ IE 


BY 

128 

64 .1 

52 16 8 4 

2 1 

; BITTAFEL FÜR MASKENBITS 


.EN 
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PROCEDURE GRAFE IN; 

BEGIN GRAFIK(GEIN,0,0,0,0) END* 

PROCEDURE GRAFAUS; 

BEGIN GRAFIK(GAUS, 0,0,0,0) END; 

PROCEDURE ORAFCLR; 

BEGIN GRAFIK(GCLR, 0,0,0,0) END; 

PROCEDURE COLCLR (HFARB,PFARB:INTEGER); 
BEGIN GRAFIK<CCLR,HFARB,PFARB,0,0) END; 

PROCEDURE DOT (X,Vs INTEGER); 

BEGIN GRAFIK(ON,X,Y,0,0) END; 

PROCEDURE UHDOT (X,V sINTEGER); 

BEGIN GRAFIK(OFF,X,V,0,0) END; 

PROCEDURE LIME (Al,Bl,A2,B2:INTEGER); 
BEGIN GRAFIK(GERS,A1,B1,A2,B2) END; 

PROCEDURE CLIHE (Al,Bl,A2,B2iINTEGER); 
BEGIN GRAFIK(GERL,A1,B1,A2,B2) END; 

PROCEDURE REVERS ; 

BEGIN GRAFIK(REV,0,0,0,0) END; 


<* ENDE DER GRAF I KRQUT I NE *> 


- 310 - 



PROFI PASCAL 


8-3. 1 HILBERT-KURVEN 

Bei dem hier aufgelisteten Pascal-Programm handelt es sich um 
ein Grafik-Demoprogramm, das Einbau, Aufruf und Parameter¬ 
versorgung des in Abschnitt 8.3 vorgestel1ten Grafik-Paketes 
zeigt. Das Programm zeichnet mäanderförmig verschlungene Geraden 
und demonstriert damit gleichzeitig die Möglichkeiten des 
rekursiven Programmierens in Pascal. Es wurde dem Buch 
"Algorithmen und Datenstrukturen " von N. Wirth entnommen. Das 
kompilierte Programm ist unter dem Namen HILBERT auf der System¬ 
diskette abgespeichert. 

PROGRAM HILBERT; 

(*-* ) 

<* PROGRAMMSTART: $0C00 *> 

<* HALDE : EOPRGM *> 

<* TOP OF STACK : $2000 *) 

(*-*> 

COHST 

HX0=320; HY0=192; CLRHOM-CHR($93); BACKSPC=CHR($9D); 

TYPE GRAFCQMMAND=(GE IN,GAUS,GCLR,CCLR,ON,OFF,GERS,GERL,REV); 

VAR TIEFE,XO,YO,HX,HY,X X1,XX2,I,YY1,YY2:INTEGER; 

CHARIN :CHAR; 


<*-*> 

<* *) 

AIMCLUDE(S_QRAF1K ); 

<* *) 

<* EINBINDEN IN JEDES *) 

<* ANWENDERPROGRAMM *) 

<* MOEGLICH *) 

<* - *) 


PROCEDURE ZEICHNE; 

BEGIN LINE (XXI , YY1 , XX2, YY2) ; XX1:°=XX2;YY1: =YY2 END; 
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PROCEDURE Bd: INTEGER )5 FORWARD; 

PROCEDURE C(I: INTEGER);FORWARD; 

PROCEDURE D( IsINTEGER);FORWARD; 

PROCEDURE Ad: INTEGER) ; 

BEGIN 

IF I> 0 THEN 
BEGIN 

D C1-1);XX2:«XX1-HX;ZEICHNE; A(I-1>;YY2:=YY1-HY;ZEICHNE; 
A <1-1);XX2a=XXl+HX 5 ZEICHNE; B(I-l) 

END 
END; 

PROCEDURE 0; 

BEGIN 

IF I>0 THEN 
BEGIN 

C(1-1);YY2s =YY1+HY;ZEICHNE; 

B(I-l);YY2s =YY1-HY;ZEICHNE; 

END 
END; 

PROCEDURE C ; 

BEGIN 

IF I>0 THEN 
BEGIN 

B(1-1);XX2:=XX1+HX;ZEICHNE; 

C(I-l);XX2:=XXI-HX;ZEICHNE; 

END 
END; 

PROCEDURE D ; 

BEGIN 

IF I>0 THEN 
BEGIN 

A(I-l) ; YY2s=YYl-HY; ZEICHNE; D(I-l) ; XX2: as XXl-HX; ZEICHNE 
D(I-l);YY2:=YY1+HY;ZEICHNE; C(I-l) 

END 

END; 


C (I -1) ; YY2s =YY 1 +HY; ZEICHNE 
D(I-l) 


B(I-l);XX2:*X X1+HX;ZEICHNE 
A(I-l) 
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BEOJN <*MAIN OF HILBERT*) 

WRITELN(CLRHOM> ; WR ITELN; 

WRITELN('HILBERT - KURVEN':26); 

WRITELN; 

WRITELN<'DIESES PROGRAMM ZEICHNET UNTER VERWEN -')5 
WRITELN( DUNG DER HI-RES-GRAFIK DES C64 DIE SOG.'); 

WRITELN(' HILBERT-KURVEN!'); 

WRITELN( SIEHE AUCHsNIKLAUS WIRTH,'); 

WRITELN(' ALGORITHM. U. DATENSTRUKT.,'); 

WRITELN(' TEUBNER VERLAG,'); 

WRITELN < ' STUTTGART'); 

WRITELN; 

WRITELN(DIE VERSCHACHTELUNGSTIEFE D. REKURSIVEN'); 

WRITELN('DARSTELLUNG KANN ZWISCHEN 1 UND 6 GE-'); 

WRITELN(' WAEHLT WERDEN.'); 

WRITELN; 

WRITELN(DAS VERLASSEN DES HI-RES-MODUS'' IST'); 

WRITELN('DURCH DRUECKEN DER ''RUN/STOP''-TASTE'); 

WRITELN<'MOEGLICH; DAS VERLASSEN DES PROGRAMMS'); 

WRITELN(MIT ' 'E ' ' ! ' ) ; 

WRITELN; 

REPEAT 

WRITE('VERSCHACHTELUNGSTIEFE <1..6,E) =?',BACKSPC); 

REPEAT CHARIN:=GETKEY UNTIL CHAR IN IN Ä‘1'.. ' 6 ' , 'E'ü; 
WRITELN(CHARIN); 

IF CHARINO'E' THEN 
BEGIN 

TIEFE: -ORD(CHARIN)-ORD('0');GRAFE IN;GRAFCLR;COLCLR(0,5)| 
HX:=HXO;XO:=HX DIV 2;HY:=HYO;YO:=HY DIV 2;I:=0; 

REPEAT 

I:-I + l 5 HX:=HX DIV 2;HY:=HV DIV 2; 

XO:=XO + HX DIV 2;Y0:=Y0 + HY DIV 2; 

XXI:-XO;YY1:=YO;XX2:=XX1;YY2:=YY1; 

A(I) 

UNTIL I = TIEFE; 

REPEAT UNTIL EOF; (*HARTET AUF BBREAK*) GRAFAUS 
END 

UNTIL CHARIN='E' 

END . 
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9 ANHANG 

9.1 FEHLERLIBTE 

Diese Liste enthält sämtliche vom PROFI PASCAL - Compiler 
feststellbaren Compi1er-Fehler, die während der Kompilation nur 
mit ihrer Fehlernummer angezeigt werden. Die Liste stützt sich 
auf die im "Pascal User Manual and Report" definierte Standard- 
Liste. Sie wurde um die in PROFI PASCAL möglichen, durch deren 
Erweiterung bedingten Fehlermeldungen ergänzt 

1: ERROR IN SIMPLE TYPE 

2: IDENTIFIER EXPECTED 

3s 'PROGRAM' EXPECTED 
4; ')' EXPECTED 

5: EXPECTED 

6 : ILLEGAL SYMBOL 

7: ERROR IN PARAMETER LIST 

8 : OF' EXPECTED 

9: '(' EXPECTED 

10: ERROR IN TYPE 

11: Ä' EXPECTED 

12: 'ü' EXPECTED 

13: END' EXPECTED 

14: EXPECTED 

15: INTEGER EXPECTED 

16: '=' EXPECTED 

17: 'BEGIN' EXPECTED 

18: ERROR IN DECLARATION PART 
19: ERROR IN FIELD-LIST 
20: ',' EXPECTED 

21: EXPECTED 

22: EXPECTED 

23: ’.' EXPECTED 

24: ',' OR ')' EXPECTED 

25: BOOLEAN CONSTANT EXPECTED 
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50s ERROR IN CONSTANT 

51: ': =' EXPECTED 

52: 'THEN' EXPECTED 

53: ’UNTIL' EXPECTED 

54: 'DO' EXPECTED 

55: TO' OR 'DOWNTO' EXPECTED 

56: 'IF' EXPECTED 

57: FILE' EXPECTED 

58: ERROR IN FACTOR 

59: ERROR IN VARIABLE 

60: PROGRAM INCOMPLETE 

101: IDENTIFIER DECLARED TWICE 

102: LOW BOUND EXCEEDS HIGHBOUND 

103: IDENTIFIER IS NOT OF APPROPRIATE CLASS 

104: IDENTIFIER NOT DECLARED 

105: SIGN NOT ALLOWED 

106: NUMBER EXPECTED 

107: INCOMPATIBLE SUBRANGE TYPES 

108: FILE NOT ALLOWED HERE 

110: TAGFIELD TYPE MUST BE SCALAR OR SUBRANGE 

111: INCOMPATIBLE WITH TAGFIELD TYPE 

113: INDEX TYPE MUST BE SCALAR OR SUBRANGE 

115: BASE TYPE MUST BE SCALAR OR SUBRANGE 

116: ERROR IN TYPE OF STANDARD PROCEDURE PARAMETER 

117: UNSATISFIED FORWARD REFERENCE 

118: FORWARD REFERENCE TYPE IDENTIFIER IN VARIABLE DECLARATION 

119: FORWARD DECLARED; 

REPETITION OF PARAMETER LIST NOT ALLOWED 
121: FILE VALUE PARAMETER NOT ALLOWED 

122: FORWARD DECLARED FUNCTION; 

REPETITION OF RESULT TYPE NOT ALLOWED 
123: MISSING RESULT TYPE IN FUNCTION DECLARATION 

124: F-FORMAT FOR REAL ONLY 

125: ERROR IN TYPE OF STANDARD FUNCTION PARAMETER 

126: NUMBER OF PARAMETERS DOES NOT AGREE WITH DECLARATION 

127: ILLEGAL PARAMETER SUBSTITUTION 

128: RESULT TYPE OF PARAMETER FUNCTION 

DOES NOT AGREE WITH DECLARATION . 

129: TYPE CONFLICT OF OPERANDS 
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130: EXPRESSION IS NOT OF SET TYPE 

131: TESTS ON EQUALITY ALLOWED ONLY 

133: FILE COMPARISON NOT ALLOWED 

134: ILLEGAL TYPE OF OPERAND(S) 

135: TYPE OF OPERAND MUST BE BOOLEAN 

136: SET ELEMENT TYPE MUST BE SCALAR OR SUBRANGE 

137: SET ELEMENT TYPES NOT COMPATIBLE 

138: TYPE OF VARIABLE IS NOT ARRAY 

139: INDEX TYPE IS NOT COMPATIBLE WITH DECLARATION 

140: TYPE OF VARIABLE IS NOT RECORD 

141: TYPE OF VARIABLE MUST BE FILE OR POINTER 

142: ILLEGAL PARAMETER SUBSTITUTION 

143: ILLEGAL TYPE OF LOOP CONTROL VARIABLE 

144: ILLEGAL TYPE OF EXPRESSION 

145: TYPE CONFLICT 

146: ASSIGNMENT OF FILES NOT ALLOWED 

147: LABEL TYPE INCOMPATIBLE WITH SELECTING EXPRESSION 

148: SUBRANGE BOUNDS MUST BE SCALAR 

149: INDEX TYPE MUST NOT BE INTEGER 

150: ASSIGNMENT TO STANDARD FUNCTION IS NOT ALLOWED 

151: ASSIGNMENT TO FORMAL FUNCTION IS NOT ALLOWED 

152: NO SUCH FIELD IN TH IS RECORD 

152: TYPE ERROR IN READ 

154: ACTUAL PARAMETER MUST BE A VARIABLE 

158: MISS ING CORRESPOND ING VARIANT DECLARATION 

159: REAL OR STRING TAGFIELDS NOT ALLOWED 

160: PREVIOUS DECLARATION WAS NOT FORWARD 

161: AGAIN FORWARD DECLARED 

162: PARAMETER SIZE MUST BE CONSTANT 

163: MI SSING VARIANT IN DECLARATION 

164: SUBSTITUTION OF STANDARD PROC OR FUNC NOT ALLOWED 

165: MULT IDEFINED LABEL 

166: MULTIDECLARED LABEL 

167: UNDECLARED LABEL 

168: UNDEFINED LABEL 

169: ERROR IN BASE SET 

170: VALUE PARAMETER EXPECTED 

171: STANDARD FILE WAS REDECLARED 

177: ASSIGNMENT TO FUNCTION IDENTIFIER NOT ALLOWED HERE 

178: MULTIDEFINED RECORD VARIANT 
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179: X-OPT OF ACTUAL PROC OR FUNC 

DOES NOT MATCH FORMAL DECLARATION 
182: PARAMETER LIST OF EXTERN PRGM NOT ALLOWED 

183: LOAD/SETADR ONLY FOR EXTERNALS 

184: EXTERNAL WITHOUT ADDRESS-DEFINITION 

185: SLICE-ARRAY MUST BE OF TYPE CHAR OR BYTE 
186: ASSIGNMENT OF SLICE TO SLICE NOT ALLOWED 

201: ERROR IN REAL CONSTANT: DIGIT EXPECTED 

202: STRING CONSTANT MUST NOT EXCEED SOURCE LINE 

203: INTEGER CONSTANT EXCEEDS RANGE 

206: INTEGER PART OF REAL CONSTANT EXCEEDS RANGE 

207: BYTE-CONST TOO LARGE 

208: ERROR IN BYTE-CONST 

209: ERROR IN HEX-CONST 

210: ERROR IN NUMERIC-CONST 

250: TOO MANY NESTED SCOPES OF IDENTIFIERS 

251: TOO MANY NESTED PROCEDURES AND/OR FUNCTIONS 

252: TOO MANY FORWARD REFERNCES OF PROCEDURE ENTRIES 

257: TOO MANY EXTERNALS 

258: TOO MANY LOCAL FILES 

259: EXPRESSION TOO COMPLICATED 

398: IMPLEMENTATION RESTRICTION 

399: VARIABLE DIMENSION ARRAYS NOT IMPLEMENTED 

: 

400: FILE-ELEMENT TOO LONG 

401: STRING NOT ALLOWED HERE 

402: TOO MANY IDENTIFIERS 

403: READLN/WRITELN ONLY WITH TEXT 

404: PROGRAM INCOMPLETE 

405: TOO MANY SEGMENTS 

406: NESTED SEGMENTS NOT ALLOWED 

407: SEPARATED SEGMENTS NOT ALLOWED 

408: COMPILING OF SEGMENTED PRGMS TO RAM NOT ALLOWED 

409: TOO MANY PARAMETERS 

410: ERROR IN 'k'-OPTIONS 

411: TOO MANY NESTED SOURCES 
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9.3 SACHVERZEICHNIS 


ABS 130 

Addition, binär 170 
&ADR 188 

Adressierungsarten 216 
Adreßrechnung 170 
ADVICE 234 
ALFA 100 
ALLOCATE 146 
AND 132,172 
Anweisungstei1 104,141 

ANYKEY 164 
APPEND 54 
ARCTAN 131 
ARRAY 99 
-Zugriff 143 
-Slice 143 
ASSEMBLE 184,B5ff 
Assembler 8,209ff 
-Aufruf 30 
-Befehle 212 
-Fehler 226 
-Programm 77,179,210 
-Routinen 184 
Assemblierung 223 
Assignment 104 141 
Ausgabeformat 121 
Autolining 63 

.BA 184,219 
BASIC 47 

Basisdiskette 24 
Bedingte Assembl. 80 
— Kompilation 76,188 
BEGIN 104 
Bezeichner 2 
Bitmanipulation 171ff 
BLOCKTABLE 235 


Blocktafel 235,274 
BOOLEAN 98 

Boolsche Operationen 172 
BREAK 128 
BYTE 138 
Byteliste 221 
.BY 221 

CASE-Statement 105,144 
CHANGE 56 
CHAR 98 
CHR 126 

Clear File 247 
CLOSE 147 
CLRTRAP 148 
Compiler 10,93ff 
-Anweisungen 188 
-Aufruf 32 
-Diskette 27 
-Fehler 201,315 
CONST 96 

CONTINUE, Programm 149,176 
- Source 74,81,188,219 
&C0NTINUE 188 
COPY 237 
Copy File 237 
COS 131 

CPU-Instruktionen 212 
.CT 185,219 

Default 191f f 
DELETE 57 

Directory 38,62,249,261 
Direktkommando 3 
Disc-mode 193 
Disketten-Dup 239 
-organisation 235,252,274 


- 321 



PROFI PASCAL 


Diskettenschutz 248 

DISPOSE 107 

DIV 132 

.DL 220 

DOS 274 

Drucker 2 

.DS 222 

Dump 195,206,259,263 
DUPLICATE 239 
Duplizieren 239 

Editor 18,47ff 
-Aufruf 34 
-Befehle 53 
-Organisat i on 88 
-Programm 279 
ELSE-of-CASE 144 
.EN 220 
END 104 
ENTER 241 
Entschützen 259 
EOF 128 
EOLN 129 
.EQ 220 
EXCLÜDE 263 
Exchange 56 
EXECUTE 149,176 
EXP 131 

Externais 173ff 

FALSE 97 

Fehlerfalle 162,148 
-meldungen 47,148,162,226 
Feldformat 121 
FETCH 224 
FILE 99 
File-Copy 237 
-Dump 263 
-Listing 263 
-Puffer 112 


File-Zugriff 141 
FIND 58 
Format 121 
Formatieren 23 
FOR-Statement 105 
FORWARD 134 
FRAC 171 
FREE 168 
FUNCTION 102 

Funktionsvereinbarung 102,136 

Gemischte Programme 85 
GET 108 
GETKEY 165 
GET-RAM 35,243 
GET-SECTOR 276 
GET-SOURCE 59 
GOTO-Statement 106 

Halde 155,192 
Hardcopy 46,64,167 
HBYT 163 
Heap 146,192 
HELP 36,60,244 
HEX 150 

Hex-Notation 3 
HXS 170 
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IN 132 
INCLUDE 75 
&INCLUDE 188 
Index-Check 194 
INDVC 151 

Inhaltsverz. (Disc) 38,62,249 
INPUT 95,101,112 
Input-Puffer 112 
INSERT-ADVICE 245 
INT 163 
INTEGER 98 
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Integer-Zahlen 4 
IOERROR 43,162,148,166ff 

JUMP 37,246 

KILL 152,247 
Kompi1ationsablauf 198 
-modus 193 

Konstantenvereinb. 96,136 
Kopieren 237 

LABEL 96 

Label-Definitian 220 
-Expression 216 
-Listing 228 
-Vereinbarung 96,136 
LBVT 163 
LEN 168 
LIST 61 
LN 131 
LOAD 153 
LOADDAT 1 
LOCK 152,248 
Logische Funktionen 172 
Löschen 247 
LOW 164 

MAIN-Rahmen 7,29 
MAP 38,62,249,261 
MARK 155 

Maschinenprogramm 179 
MAXINT 97 
MEM 140 

Memory-Dump 259 
-Map 272 
Mnemonic 212 
MOD 132 
Move-Line 69 
-Memory 258 


NAME 155 
.NE 220 
NEW 109 
NEW-DISC 251 
NIL 97 
NOT 132,172 

.OC 184,221 
ODD 129 
OPCodes 121 
Operationcodes 212 
Optionen 191ff 
OR 132,172 
ORD 127 
ORGANICE 252 

Organisation (Editor) 88 
- (Diskette) 274 
■OS 221 
OUTDVC 157 
OUTPUT 95,101,117 
OUTPUT-DEVICE 64 
Output-Format 121 
-Puffer 122 
Overlay 173ff 

Parameter Übergabe 187 
Pascal 93 
-Compiler 93ff 
-DOS 274 
-Programm 72 
PCode 189 
?<PCQDE 188 
PEEK 140,259 
PI 136 

Pointer-Typ 100 
POKE 140,257 

F'ost-Mor tem-Dump 195,206 
Praxis (PROFI PASCAL) 23 
PRED 130 
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PROCEDURE 102 
Programm 95 
-abbruch 205 
-erstellung 72ff 
-köpf 95,136 
-listing 279ff 
-Start 191 

Prozedurvereinb. 102,136 

Pseudo-OPCodes 219 
PUT 110 
PUT-RAM 40,254 
PUT-SECTOR 276 
PUT-SOURCE 65 

QUIT 68,256 

Rahmen-farbe 87 
RAM-Mode 194 
RANDOM 140 
RANDOM-Zugriff 142 
READ 111 
READLN 114 
REAL 98 
RECORD 99 
RELEASE 158 

RELEASE-BLOCK (Zero) 265 
RENAME 256 
RENUMBER 68 
REPEAT-Statement 105 
RESET 115 
REWRITE 116 
ROUND 131 
RS-232 151,157 
RUN-PROGRAM 42 
RUN/STOP 128 

R'unti me-Feh 1 er 148,162,205 


.8A 222 

Schreibschutz 248 
Scratch 247 
Search 58 
SEEK 159 
SEGMENT 173ff 
Sektor 241ff 
SET 99 
SETADR 160 
SETDRO 161 
SETTRAP 162 
SHIFT-LINE 69 
Shift-Memory 258 
SHL 171 
SHR 171 

Sichern 152,248 

SIGN 170 

SIN 131 

SIZE 169 

Slice 143 

Source-file 91 

Speicheradressen 272 

Speicherbelegung 272 

Sperren 263 

Spracherweiterungen 135 
-umfang 94 
SQR 130 
SQRT 131 
Stack 192 
Stammdiskette 26 
Standardsprachelemente 94 
-funktionen 126 
-Prozeduren 107,146 
STARTUP 27 
Statistik 203 
Stel1enformat 121 
STKPOI 136 
STORE-MEMORY 257 
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STRING 138 
Stringlänge 168 
SUCC 130 
Summe 170 
Syntax-Check 201 
-Fehler 201 
SVSGEN 23 
Systemgrößen 267 
-Informationen 267 
-laden 5 

-Vereinbarungen 1 
-verhalten 1 

Tastaturabfrage 164ff 
Test-of-Bounds 194 
TEXT 100 
Text-Editor 47ff 
-File 91 

Top-of-Stack 187 

Transfer-Line 69 

Transfer-Memory 258 

TRUE 97 

&TRUE 188 

TRUNC 131 

TYPE 97 

Typvereinbarung 97,138 
-verträglichkei t 139 

UNLGCK 259 
UPDATE 70 
USERFUNC 179 
USERPR0C 179 
User-Routinen 179 
Utility 20,231ff 
-Aufruf 45 


VACANCY 71 
VAR 101 

Variablenaufbau 267 
-check 194 
-große 169 
-Speicher 192 
test 194 

-Vereinbarung 101,140 
VIEW-MEMORY 259 
V24 151,157 

WHILE-Statement 105 
Wirth 93 

WITH-Statement 105 
WRITE 120 

WRITE-DIRECTORY 261 
WRITELN 123 
WRITE-SOURCE 46 

X TRNFUNC 177 
XTRNF’RGM 178 
XTRNPRGC 177 

Zeilennummer 50 
ZEROING 265 
Zusatzfunktionen 136 
-Prozeduren 136 
-vereinbarungen 136 
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C-COMPILER 

DM290,-* 


"C" ist die kommende Programmiersprache! Bereits heute arbeiten große Software¬ 
häuser mit ihr - sogar das bekannte Betriebssystem "UNIX“ wurde in “C“ geschrie¬ 
ben. Jetzt kann auch der C-64-Anwender diese zukunftsweisende Computersprache 
nutzen, die bisher nur den “Großen" Vorbehalten war. Und zwar in vollem Umfang, 
denn der C-Compiler von DATA BECKER ermöglicht nicht nur einen Einblick in die¬ 
ses hochinteressante System, sondern bietet eine Möglichkeit zur professionellen 
Programmerstellung - eine echte Alternative zu anderen Sprachen. Das C-Paket ent¬ 
hält Editor, Compiler, Dienstprogramme sowie ein ausführlich dokumentiertes Hand¬ 
buch. 


Der C-COMPILER in Stichworten: 

EDITOR: Full Screen Editor mit variabler Zeichenbreite, maximal 43 K Textspeicher. 2 Zeichensätzen und komfor¬ 
tablen Textverarbeitungsfunktionen. 

COMPILER: Voller Sprachumfang nach Kermgan und Ritchie (außer Bitfeldern), erzeugt direkten Maschinencode, 
hat 50 KByte Speicher für den ob|ektcode verfügbar, optimiert Ausdrucke und bietet 16(!)-stellige Fließkomma- 
Arithmetik. 

LINKER: Bindet bis zu 7 getrennt compilierte Quellfiles zu einem lauffähigen Maschinenprogramm zusammen, das 
sowohl vom C-Hauptmenue als auch von BASIC aus gestartet werden kann. 

COPV: Diskettendienstprogramm. 

Mit dem DATA BECKER "C' -COMPILER steht dem C-64-Anwender jetzt ein mächtiges Softwarewerkzeug zur 
Verfügung. "C“-Programme lassen sich ohne großen Aufwand auf PC’s oder selbst auf Großrechner übertragen. 
Der DATA BECKER "C"-COMPILER wurde komplett in Deutschland von deutschen Autoren entwickelt. Natürlich 
mit ausführlichem Handbuch. Programm wird auf Diskette (für Diskettenlaufwerk 1541) geliefert. 

* unverbindliche Preisempfehlung Alle Programme auf Diskette für VC-1541 


ADA-Trainingskurs 
DM 198,-* 

Diese Programmiersprache der Zukunft, wie seinerzeit COBOL vom Pentagon in Auf¬ 
trag gegeben, kann letzt mit dem DATA BECKER-Trainingskurs auch der C-64-An- 
wender erlernen. Der ADA-Trainingskurs enthält außerdem einen Compiler, der einen 
umfassenden SUBSET und die wesentlichen Elemente dieser Sprache bietet. 

ADA-Trainingskurs in Stichworten: 

blockstrukturierte Programme - modularer Aufbau der Programme - ermöglicht die Behandlung von Ausnahme¬ 
zuständen - lexikalische, syntaktische und semantische Fehleruberprüfung beim Übersetzen und zur Laufzeit - 
Nennung der fehlerhaften Zeilennummer führt zu problemloser Fehlersuche - ermöglicht das einfache Einbinden 
von Maschinenprogrammen - ausgesprochen leichtes Arbeiten mit Programmbibliotheken - Konstanten und Va- 
riablendefmitionen von verschiedenen Typen (Integer, Strings etc.) - Assembler erlaubt Kommentare. Benutzung 
von Labels, verschiedene Zahlenformate, Pseudo-Anweisungen (z.B " BYTE *, “ MARKE", " START", “ BLOCK“, 
" WORD“, " COUNT“ etc.) und die Verwendung aller Mnemonics (MOS Standard) - Disassembler ermöglicht die 
Analyse von Maschinenprogrammen 62 Schlüsselwörter, trotzdem genug Speicherplatz für eigene Programme 
vorhanden - Programmdiskette enthält Editor, Übersetzer, Assembler und Disassembler - umfangreiches deut¬ 
sches Handbuch mit Übungen und Lösungsvorschlägen zu den Themen Textausgabe, Bildschirmsteuerung, Da- 
tenob|ekte, Datenein- und -ausgabe, Wertzuweisung. Entscheidungen und Schleifen - ausführliche Darstellung 
und Erläuterung der Grammatikregeln Grammatikindex 
♦ unverbindliche Preisempfehlung. Alle Programme auf Diskette für VC-1541 





FORTH 
DM 99,-* 

FORTH, die Sprache der "vierten Generation", ist mittlerweile bei den Homecompu 
teranwendern eine echte Alternative zu BASIC geworden. Programme, die in FORTH 
geschrieben wurden, sind wesentlich schneller und kürzer, häufig eleganter und 
schöner als ähnliche Programme in BASIC. 

Mit FORTH erhalten Sie eine Betriebssystemsprache, die als Compilersprache über¬ 
aus schnell ist und als Interpretersprache im interaktiven Dialog benutzt werden 
kann. Gleichzeitig entwickeln Sie mit FORTH eine ganz neue Programmierphiloso- 
phie, die auf der Benutzung der umgekehrten polnischen Notation (UPN) basiert. 

Im DATA BECKER-FORTH sind nahezu alle Vokabeln des FORTH-Standards FORTH 79 enthalten; weiterhin sind 
elementare Wörter der jüngsten FORTH-Generation FORTH 83 aufgenommen. Weiterhin sind die Fehlermeldun¬ 
gen frei editierbar und lassen sich individuell gestalten. Das Software-Paket FORTH bietet außerdem komfortable 
Möglichkeiten für die Sound-Programmierung und enthält auch Befehle zur Hires- und Block-Graphik, die auf¬ 
grund der hohen Verarbeitungsgeschwindigkeit von FORTH zu wirkungsvollen Ergebnissen führen. Neben einer 
Menge an Programmierhilfen (DUMP, HELP und TRACE) wurden auch ein komfortabler EDITOR und ein spezieller 
FORTH-Assembler integriert. 

Alle im Handbuch aufgeführten Beispiele werden Ihnen als Quellprogramme auf der Diskette mitgeliefert. Diese 
Programme können sofort geladen, ausprobiert und gegebenfalls verändert werden. 

Eine optimale Ergänzung zu diesem Software-Paket ist "Das Trainingsbuch zu FORTH“ von DATA BECKER, das 
über das umfangreiche Handbuch hinaus anhand von Übungen zu einer soliden Kenntnis und sauberen Anwen¬ 
dung von FORTH führt und im "Trainingsbuch zu FORTH für Fortgeschrittene" eine gelungene Fortsetzung findet 



Der Compiler BASIC 64 bietet die Möglichkeit, BASIC-Programme entweder in Ma¬ 
schinensprache oder in einen sogenannten Speedcode zu übersetzen. Beide Varian¬ 
ten sorgen dafür, daß Ihre Programme 4- bis 14mal schneller laufen! Bearbeiten Sie 
mit BASIC 64 alle Programme, die Ihnen schon immer zu langsam waren. Sie werden 
überrascht sein, was BASIC 64 zu leisten vermag: mit dem kompakten Speedcode 
können Sie den Speicherplatzbedarf Ihres Programmes um 25% verringern, wäh¬ 
rend der speicherplatzaufwendigere Maschinencode zusätzlichen Geschwindig- 
keitszuwachs bringt 


BASIC 64 kann jedes Programm verarbeiten, das im COMMODORE 64 BASIC geschrieben wurde (Ausnahme 
einzelne POKE-Befehle) und unterstützt teilweise auch die bekannten Befehlserweiterungen. Außerdem können 
Sie mit BASIC 64 den Speicherplatz für Daten um 24 K erweitern. Nebenbei erledigt BASIC 64 einige Arbeiten für 
Sie: Umformung mathematischer Ausdrücke, möglichst ökonomische Speicherplatzausnutzung und Integer 
Arithmetik. Durch eine völlig veränderte Stringbehandlung schrumpft die gefürchtete Garbage Collection auf we¬ 
nige Sekunden. Alle Optionen werden benutzerfreundlich per Menü aufgerufen und Eingaben auf ihre Korrektheit 
hin überprüft. Sie werden dadurch auf falsche Eingaben aufmerksam gemacht. So sind Bedienungsfehler von 
vornherein ausgeschlossen! Mit BASIC 64 haben Sie ein Hilfsmittel in der Hand, das Ihre BASIC-Programme 
schneller macht als Sie es bisher für möglich gehalten haben! Das Programm wird mit ausführlichem deutschen 
Handbuch geliefert. 

* unverbindliche Preisempfehlung. Alle Programme auf Diskette für VC-1541. 




DATA BECKER präsentiert ein nmumm Textverarbeitungsprogramm dar Superlative: 



Das alles kann TEXTOMAT: 


Diskettenprogramm - durchgehend menuegesteuert - deutscher Zeichensatz auch auf COMMODORE-Druckern 
- Rechenfunktionen für alle Grundrechenarten - 24.000 Zeichen pro Text im Speicher - beliebig lange Texte durch 
Verknüpfung - wahlweise 40 oder 80 Zeilen pro Zeile durch horizontales Scrolling des Bildschirms - läuft mit 1 oder 
2 Floppies - frei programmierbare Steuerzeichen - Formulareinstellung für Randeinstellung usw. - komplette Bau¬ 
steinverarbeitung - Blockoperationen. Suchen und Ersetzen - Serienbriefe mit DATAMAT - formatierte Ausgabe 
auf Bildschirm - an fast jeden Drucker anpaßbar - ausführliches deutsches Handbuch mit Übungslektionen. 


TEXTOMAT DM 99,-* 

Und das kann TEXTOMAT PLUS zusätzlich: 


+ Anzahl der Zeichen pro Zeile frei zwischen 40 und 240 einstellbar - neues Formatieren des Textes bei jedem Ein¬ 
lesen in den Speicher, so daß es keine Rolle spielt, mit welcher Einstellung der Text geschrieben wurde. 

+ 8 frei definierbare Floskeltasten zum Schreiben von Wörtern oder Sätzen auf Tastendruck 
+ Wordwrap zieht jedes Wort, das nicht mehr in eine Zeile paßt, sofort in die nächste Zeile. 

+ Frei einstellbarer Tabulator 

+ Alle einmal definierten Tabulatorpositionen und Floskeltasten, die Formateinstellungen usw. können natürlich im 
Formular auf Diskette gespeichert und beliebig oft aufgerufen werden. 

+ Von Ihnen eingegebene Trennvorschläge werden bei der Formatierung automatisch ausgeführt, so daß lange 
Wörter nicht mehr große Löcher im Text verursachen. 

+ Formatier e Ausgabe auf Bildschirm mit der Anzeige von Überschriften, Seitenumbruch, Seitennummern usw. 
ermögliche, i es, sich ein genaues Bild vom Aussehen des Textes zu machen, ohne auch nur ein Blatt Papier zu ver¬ 
schwenden. 

+ Anzeige w ihlweise im 40-Zeichenmodus oder über die integrierte softwaremäßige 80-Zeichenkarte möglich. 

+ Senden un 1 Empfangen von Texten über Akustikkoppler - dabei können auch Texte von anderen Quellen außer 
TEXTOMAT l’LUS empfangen werden. Eine frei editierbare Konvertierungstabelle verhindert Schwierigkeiten mit 
den ASCII-C« «des anderer Computer. 

+ Beliebiger Zeichensatz sowohl für Drucker als auch für Bildschirm erstellbar. Sei es griechisch oder seien es nur 
ein paar mathematische Sonderzeichen - jedes Zeichen auf dem Bildschirm kann in einer maximalen Matrix von 
16x16 Punkten auf den COMMODORE-Druckern MPS 801,802, 803 und den EPSON-Druckern RX80 bzw. FX80 
mit DATA BECKER-Interface ausgedruckt werden. Durch den Ausdruck im Grafikmodus ist es jetzt auch möglich, 
Proportionalschrift auf allen diesen Druckern (auch den COMMODORE-Druckern!) zu erstellen. 

+ Unterstützung des frei definierbaren Zeichensatzes des EPSON-FX 80 in allen Belangen. 

+ Mischen von Text und Grafik mit den oben genannten Druckertypen. Jede normal gespeicherte Grafik wie z.B. 
von SUPERGRAPHIK. KALKUMAT oder KOALA-PAD kann auch ausschnittweise in den Text integriert werden. 

+ Druckausgabe auch auf Floppy, so daß der Text in eine Datei geschrieben wird. Damit ist es z.B. möglich, eine 
Fotosatzmaschine anzusteuern. 

+ Wahlweise menuegesteuerte Bedienung des Programms oder schnelle Direktanwahl der Befehle über Buchsta¬ 
ben für den geübten Anwender. 

+ Sehr umfangreiches, reich illustriertes Handbuch, in dem alle Funktionen ausführlich beschrieben sind. 
TEXTOMAT PLUS DM 248,-* * unverbindliche Preisempfehlung. Alle Programme auf Diskette für VC-1541. 




Programme zum COMMODORE 64 


DATAMAT 
DM 99,-* 

Deutschlands meistgekaufte Dateiverwaltung bietet Ihnen einiges, das in dieser Prei¬ 
sklasse bisher unvorstellbar schien. 

Mit DATAMAT können Sie: 

jeden Datensatz in 2 - 3 Sekunden suchen - nach beliebigen Feldern selektieren - 
nach allen Feldern gleichzeitig sortieren - Listen in völlig freiem Format drucken - Eti¬ 
ketten drucken. 

DATAMAT in Stichworten: 

menuegesteuertes Diskettenprogramm, dadurch extrem einfach zu bedienen - für jede Art von Daten - völlig frei 
gestaltbare Eingabemaske - maximal 50 Felder pro Datensatz - maximal 253 Zeichen pro Datensatz - je nach Um¬ 
fang bis zu 2000 Datensäzte pro Datei - Schnittstelle zu TEXTOMAT - läuft mit 1 oder 2 Floppies - völlig in Maschi¬ 
nensprache - extrem schnell - deutscher Zeichensatz auch auf COMMODORE-Druckern - anpaßbar an viele Druk- 
ker - ausdrucken auch über RS 232 - duplizieren der Datendiskette - gute Benutzerführung - Hauptprogramm 
komplett im Speicher (kein Diskettenwechsel) - umfangreiches deutsches Handbuch mit Übungslektionen. 




SUPERBASE 64 
DM 398,-* 

SUPERBASE 64 ist die professionelle Datenbank für den Commodore 64, mit den 
bestechenden Leistungsmerkmalen teurer Datenbanken für größere Computer. 
SUPERBASE 64 können Sie nutzen als: 

Dateiverwaltung - Datenbank - Programmiersprache 


SUPERBASE 64 in Stichworten: 

maximale Datensatzlänge 1108 Zeichen, verteilt auf bis zu 4 Bildschirmseiten - bis zu 127 Felder pro Datensatz, 
wobei Textfelder bis zu 255 Zeichen lang sein können - insgesamt 15 Einzeldateien können zu einer SUPERBASE- 
Datenbank verknüpft werden - Speicherkapazität nur durch Diskette begrenzt - umfangreiche Auswertungsmög¬ 
lichkeiten und komfortabler Report-Generator - 34 Sortierstufen - mathematische Verknüpfungsmöglichkeiten 
der Datenfelder - Import- (Einlesen von externen Daten) und Export- (Ausgabe von SUPERBASE-Dateien als se¬ 
quentielle Datei) Funktionen ermöglichen Datenaustausch mit anderen Programmen - durch leistungsfähige Da¬ 
tenbanksprache auch als kompletter Anwendungsgenerator verwendbar - mehr als 40 zusätzliche Befehle über 
BASIC hinaus - deutsche Bildschirmdialoge und umfangreiches deutsches Handbuch. 


XPER 
DM 298,-* 

Mit XPER ist endlich ein frei programmierbares Expertensystem für Mikrocomputer 
erhältlich - eine intelligente Datenbank, die für Fragen aus Ihrem individuellen Wis¬ 
sensgebiet exakte Lösungen anbietet. 



XPER in Stichworten: 

“intelligentes" Datenbanksystem - Einsatzbereich frei wählbar für jedes Wissensgebiet - Basiswissen nach Ihren 
eigenen Eingaben, dadurch optimaler Zuschnitt auf individuellen Bedarf - 250 Objekte, 50 Variablen und 300 Wer¬ 
te - Ausgabenbreite 40 Zeichen pro Zeile - einfache Handhabung durch Mensch-Maschine-Dialog - Entschei¬ 
dungsfindung über einen Suchbaum - jeder Schritt ist nachvollziehbar - jede Entscheidung des Programmes kann 
begründet werden - Verfügungsmöglichkeit über eine Vielzahl unterstützender Routinen - Vielseitigkeit: neben der 
Funktion "Suchen" können Sie auch Unterschiede, Ähnlichkeiten oder Gleichheiten feststellen - komplett in 
Deutsch mit ausführlichem Handbuch. 


unverbindliche Preisempfehlung. Alle Programme auf Diskette für VC-1541. 






DISKOMAT 
DM 99,-* 

DISKOMAT - ein Toolkit 
für Profis! Mit allen Befeh¬ 
len des BASIC 4.0 - und 
weiteren Vorzügen: So 
werden der Floppy durch 
den Disk-Monitor die letz¬ 
ten Geheimnisse entris¬ 
sen. 

In Stichworten: 

DISK BASIC unterstützt 
Diskettenbefehle des BA¬ 
SIC 4.0 (CONCAT, HEA¬ 
DER, APPEND, RENAME, 
OPEN. COLLECT, DSA- 
VE, SCRATCH, DCLOSE, 
BACKUP. DLOAD, DI¬ 
RECTORY, RECORD, 
COPY, CATALOG, DS & 
DS$) - Programm SUPER 
TWIN behandelt 2 Floppy 
1541 wie ein Doppellauf¬ 
werk - schnelles Kopier¬ 
programm, das eine kom¬ 
plette Diskette mit einem 
Laufwerk inkl. Formatie¬ 
rung in 2 min. kopiert - je¬ 
des Programm kann 
durch den Autolader mit 
einem Autostart versehen 
werden - viele weitere 
Toolkits: Anzeige der 
BAM, Schreibschutz, 
Listschutz, das Ändern 
der ID, des Namens und 
einzelner Blöcke einer 
Diskette (insgesamt 24 
Funktionen) - Disketten- 
Manager: menuegesteu- 
ertes Toolkit zum Lös¬ 
chen und Umbenennen 
von Files, Schützen und 
Freigeben von Directo- 
ries, Retten von gelösch¬ 
ten Files und vieles mehr - 
komplett mit umfangrei¬ 
chem Handbuch 


MASTER 64 
DM 198,-* 

MASTER 64 bietet Ihnen 
ein ausgesprochen kom¬ 
fortables Programment¬ 
wicklungssystem mit 
Bildschirm- sowie Druck¬ 
maskengenerator und er¬ 
möglicht die Erstellung ei¬ 
ner ISAM-Dateiverwal- 
tung. 

In Stichworten: 

BASIC 4.0 voll integriert - 
vereinfachte Ein- und 
Ausgabe von Bildschirm¬ 
daten - Definition von 
Bildschirmzonen - kom¬ 
fortables String-Handling 
- berechnetes GOTO und 
GOSUB - Datensatzopti¬ 
mierung durch Packen 
von Daten - Datensatzlän¬ 
ge bis zu 254 Zeichen - 
Schlüssellänge bis 30 Zei¬ 
chen - dynamische Be¬ 
handlung von Disketten¬ 
fehlern mit ON-ERROR - 
mehrfach genaue Arith¬ 
metik (22 Stellen) - mit der 
Runtime-Routine sind fer¬ 
tige Programme auch oh¬ 
ne die Systemdiskette 
nutzbar - umfangreiches 
deutsches Handbuch. 




STRUKTO 64* 

DM99,- 

Mit STRUKTO 64 verfu¬ 
gen Sie über eine lei¬ 
stungsstarke Interpreter¬ 
sprache, die strukturier¬ 
tes Programmieren er¬ 
möglicht und Grafik- und 
Soundfähigkeiten Ihres 
64ers optimal ausnutzt. 

In Stichworten: 
Programme werden in lo¬ 
gisch korrekter Struktur 
geschrieben - zahlreiche 
neue Befehle zur Grafik-/ 
Sound-Programmierung - 
Einrücken der Befehle in 
einer Programmzeile 
möglich - Interpreterspra¬ 
che, die die Vorzüge von 
BASIC und PASCAL in 
sich vereint - mit der Run¬ 
time-Routine lassen sich 
fertige Programme auch 
ohne die Systemdiskette 
benutzen - eingebautes 
Toolkit erleichtert das Ein¬ 
geben und Verbessern 
von Programmen - Sprite- 
Editor ermöglicht das Ein¬ 
lesen der Sprite-Formen 
direkt vom Bildschirm - 
Abspielen von Musik un¬ 
abhängig vom Program¬ 
mablauf möglich - leichte¬ 
res Arbeiten mit der Flop¬ 
py - Mischen von Text und 
Grafik - Laden und Spei¬ 
chern von Grafikseiten - 
Windows - komfortables 
Arbeiten aufgrund von ca. 
80 Befehlen - umfangrei¬ 
ches Handbuch. 


* unverbindliche Preisempfehlung Alle Programme auf 


SUPERGRAFIK 

DM99,-« 

Entdecken Sie die faszi¬ 
nierende Welt der Com¬ 
putergrafik mit SUPER¬ 
GRAFIK 64, der starken 
Befehlserweiterung mit 
den vielseitigen Möglich¬ 
keiten. Ob für Hobby oder 
Beruf-SUPERGRAFIK 64 
holt auch noch das letzte 
aus Ihrem Rechner her¬ 
aus. 

In Stichworten: 

2 unabhängige Graphik¬ 
seiten (320*200 Punkte) - 
logische Verknüpfung der 
beiden Graphikseiten 
(AND, OR, EXOR) - Nor¬ 
mal- und Multicolor-Gra- 
fik - über 180 Befehle und 
Befehlskombinationen - 
selbstdefmierbare Figu¬ 
ren, Rotieren und Vergrö¬ 
ßern dieser Figuren - 
Scrolling von Text und 
Grafik - Speichern und 
Laden von Grafik (auch 
verdeckt) - Kopieren des 
Textbildschirmes in die 
Grafikseite - Hardcopys 
für EPSON. Seikosha GP 
100 VC, Farb(!)drucker 
Seikosha GP 700 und an¬ 
dere mit DATA BECKER- 
Interface - gleichzeitig 16 
(!) Sprites auf dem Bild¬ 
schirm - IRQ-Sprite- 
Handling - Joystick-Un¬ 
terstützung - komfortable 
Soundunterstützung 
(IRQ) - umfangreiches 
Handbuch. 



Diskette für VC-1541. 
J_ 




Spielend lernen - mit dem 
neuen Junior-Mathemat 
mehr als ein Schlagwort! 
Ohne verbissenen Ernst 
oder überzogene Anfor¬ 
derungen können Schüler 
der Unterstufe (bis zur 4. 
Klasse) das Rechnen 
üben. Als Belohnung und 
zur Motivation ist ein klei¬ 
nes Videospiel integriert. 
Alle Übungen sind den of¬ 
fiziellen Lehrplänen ange¬ 
paßt - auch die Notenge- 
bung richtet sich nach 
diesem Standard. 

Die Aufgaben werden an¬ 
schaulich dargestellt und 
können in mehreren An¬ 
läufen gelöst werden. 
Klappt es beim ersten 
Versuch nicht, gibt das 
Programm behutsame 
Hilfen und bewertet - je 
nach Aufgabentyp - eine 
Antwort erst nach dem 
dritten Fehlversuch als 
Minuspunkt. Diese Me¬ 
thode hilft Kindern, auch 
Mißerfolge zu bewältigen 
- zusätzlich erhalten El¬ 
tern die Möglichkeit, den 
Leistungsstand ihres Kin¬ 
des zu erfahren. Natürlich 
sind die einzelnen 
Übungseinheiten so ge¬ 
wählt, daß das Kind auch 
wirklich in der vorgesehe¬ 
nen Zeit konzentriert blei¬ 
ben kann und das Arbei¬ 
ten Spaß macht. 

Der JUNIOR-MATHEMAT 
ist das richtige Programm 
für Kinder im Grundschul¬ 
alter. 


Ob Schule, Studium oder 
Beruf: Endlich können Sie 
Formelsammlungen in der 
Schublade lassen. Dieses 
Hilfsmittel und viele mehr 
ersetzt der MATHEMAT. 
Bei einfachen mathemati¬ 
schen Berechnungen 
wird Ihr Computer mit die¬ 
sem Programm zum kom¬ 
fortablen Taschenrechner 
mit allen wichtigen Funk¬ 
tionen. Die arithmetischen 
Mängel des Commodore- 
BASIC sind vollkommen 
ausgebüflelt. Das bedeu¬ 
tet beispielsweise: Eine 
Rechengenauigkeit von 
13 Nachkommastellen in¬ 
tern. Aber nicht nur bei al¬ 
gebraischen Aufgaben, 
sondern auch in der Dif¬ 
ferential- und Integral¬ 
rechnung ist der MATHE¬ 
MAT zu Hause. Natürlich 
kann jeder Funktions¬ 
graph auf dem Bildschirm 
gezeichnet werden, sogar 
mehrfarbig. In die gleiche 
Richtung gehen die Fä¬ 
higkeiten des MATHE¬ 
MAT auf dem Gebiet der 
Geometrie, denn MATHE¬ 
MAT hat alle Flächen und 
Körper im Griff. Auch vor 
der Vektorgeometrie muß 
MATHEMAT nicht kapitu¬ 
lieren. Alle Varianten sind 
implementiert. Zusätzlich 
bietet MATHEMAT ein 
komplettes Mathematik- 
Lexikon. Ein Programm, 
mit dem Sie (nicht mehr 
selbst) rechnen müssen! 




Mit POLISSEZ wird das 
Auffrischen von -französi¬ 
schen Vokabeln endlich 
problemlos. Vergessen 
sie also das mühsame 
Lernen anhand eines Vo¬ 
kabelheftes - vergessen 
Sie das monotone Lernen 
anhand schier endloser 
Karteikästen! Ihr Compu¬ 
ter fragt Sie ab, ohne un¬ 
geduldig zu werden und 
sortiert die schon gelern¬ 
ten Vokabeln automatisch 
aus. 

In Stichworten: 
kann von bis zu drei Ler¬ 
nenden gleichzeitig be¬ 
nutzt werden, die aber 
aufgrund ihres Lernerfol¬ 
ges unterschiedlich be¬ 
handelt werden - freie 
Farbwahl - viele unter¬ 
schiedliche Schwierig¬ 
keitsgrade - Zeichensatz 
enthält alle deutschen 
und französischen Zei¬ 
chen - erreichter Kennt¬ 
nisstand wird abgespei¬ 
chert und beim erneuten 
Laden verwendet - Fein¬ 
regulierung für die unter¬ 
schiedlichen Zielsetzun¬ 
gen - jederzeit Information 
über momentanen Kennt¬ 
nisstand - Notengebung 
nach gymnasialem Ober¬ 
stufensystem (0 - 15 

Punkte) - Hilfegebung des 
Computers auf Wunsch - 
Anhalten des Programms 
möglich - Fragen können 
übersprungen werden - 3 
verschiedene Kursteile 
erhältlich. 

POLISSEZ VOTRE 
FRANCAIS 
Teil I, II und III 
je DM 49,-• 


Können Sie sich einen ge¬ 
duldigeren Lehrer als Ih¬ 
ren Computer vorstellen? 
Wohl kaum. Dieses Pro¬ 
gramm hat immer Zeit für 
Sie, hilft Ihnen und weiß, 
was Sie schon gelernt ha¬ 
ben. Um Ihre Englisch¬ 
kenntnisse (gleich wel¬ 
cher Art) aufzubessern, 
stehen Ihnen als komplet¬ 
ter Kurs drei Teile zur Ver¬ 
fügung, die sich durch 
verschiedene Wortfelder 
unterscheiden und auch 
einzeln benutzt werden 
können. 



In Stichworten: 
ausgesprochen benutzer¬ 
freundlich durch zahlrei¬ 
che Funktionen - Wort¬ 
schatz von 1500 Voka¬ 
beln, aus denen 700 Auf¬ 
gaben formuliert werden 
können - HELP-Funktion 
gibt Hinweis aut die Lö¬ 
sung - auch die komplette 
Antwort kann gegeben 
werden - Fragen können 
übersprungen und aus 
der aktuellen Lektion ge¬ 
strichen werden - Sie be¬ 
stimmen den Schwierig¬ 
keitsgrad und das Tempo 
- der Computer bewertet 
Ihre Leistung (nach dem 
Oberstufensystem), über¬ 
wacht Ihr Tagespensum 
und macht Sie auf Lücken 
aufmerksam - es werden 
die unterschiedlichsten 
Fragen gestellt (Überset¬ 
zung Deutsch/Englisch, 
Englisch/Deutsch oder 
Vervollständigung von 
englischen Sätzen). 

BRUSH UP YOUR ENG- 
LISH 

Teil I, II und II 
je DM 49,-« 


JUNIOR MATHEMAT MATHEMAT 
DM 69,-« | DM 99,-« 

* unverbindliche Preisempfehlung. 

Alle Programme auf Diskette für VC 1541 









Mit ELEKROMAT wird 
das Erstellen von Schalt¬ 
planen zum Vergnügen - 
alle Schaltpläne können 
direkt am Bildschirm edi¬ 
tiert werden. 


In Stichworten 
2 unhabhängige Grafik¬ 
seiten mit 320 ♦ 200 
Punkten - einfachste Be¬ 
dienung durch vollständi¬ 
ge Menüsteuerung mit 
Joystick - Ausgabe der 
Schaltpläne und Stückli¬ 
sten auf Drucker - Abspei¬ 
chern aller Daten auf Dis¬ 
kette - Laden und Verän¬ 
dern von Bildern, die auf 
anderen Grafikprogram¬ 


men erstellt wurden - bei¬ 
de Grafikseiten können 
nebeneinander ausge¬ 
druckt werden und erlau¬ 
ben so Schaltpläne im 
Format 640 * 200 - mit 
Handbuch 
ELEKTROMAT 
DM 69,-* 


SYNTHIMAT macht aus 
Ihrem C64 einen profesio- 
nellen, polyphonen Syn¬ 
thesizer Mit seinen un¬ 
glaublich vielen Möglich¬ 
keiten steht er großen Sy¬ 
stemen kaum nach! 


Steuerung des Malstiftes 
über Tastatur oder Joy¬ 
stick - Routinen. Linien, 
Dreiecke, Rechtecke, Pa¬ 
rallelogramme, Kreise, 
Bögen, Ellipsen, Bestim¬ 
mung von Mittelpunkt, 
Kopieren und Drehen von 
Teilbildern - Modi: Mal¬ 
stiftmodus (schmaler 
Stift) und Pinselmodus (8 
verschiedene Breiten, Art 
der Linie selbst definier¬ 
bar) - mit ausführlichem 
deutschen Handbuch 


PAINT-PIC 

DM99,-* 


Mit Uni-Tab in die neue 
Sportsaison! Verwalten 
Sie Ihre Sporttabellen mit 
diesem universellen Pro¬ 
gramm für alle Mann¬ 
schaftssportarten. 


Spiel, Spaß, Spannung 
und das gleich viermal auf 
einer Diskette - das kann 
nur Super 4. Vier echte 
Spitzenspiele: 

STAR CRASH - ein faszi¬ 
nierendes Weltraumspiel 
mit hervoragenden Gra¬ 
phikeffekten und vielen 
verschiedenen Varianten. 
SPUK - ein atemberau¬ 
bendes Kletter- und Lei¬ 
ternspiel mit 29 unter¬ 
schiedlichen Bildern und 
variablem Schwierigkeits¬ 
grad. 

PANCHO - Sie werden 
von Graphik und Sound 
begeistert sein, wenn Sie 
mit Pancho versuchen, 


In Stichworten: 
drei Oszillatoren (VCOs) 
mit 7 Fußlagen und 8 Wel¬ 
lenformen - drei Hüllkur¬ 
vengeneratoren (ADSRs) - 
ein Filter (VCF)mit 8 Be¬ 
triebsarten und Reson¬ 
anzregulierung - VCF mit 
Eingang für externe Si¬ 
gnalquelle - ein Verstärker 
(VCA) - Ringmodulation 
mit allen drei VCOs - 8 
softwaremäßig realisierte 


Oszillatoren (LFOs) 
Speichern von bis zu 256 
Klangregistern - “Band¬ 
aufnahme" auf Disk durch 
direktes Spielen - um¬ 
fangreiches Handbuch. 

SYNTHIMAT 

DM99,-* 


Malen mit dem Computer, 
welch eine faszinierende 
Idee' Mit PAINT PIC auf 
dem C64 ist es auch für 
den Einsteiger ganz ein¬ 
fach, fantastische Grafi¬ 
ken zu erstellen! 

In Stichworten: 


UNI-TAB in Stichworten: 
Bedienerfreundlich durch 
Menuesteuerung über die 
Funktionstasten - gut ver¬ 
ständlichen Auswahl¬ 
möglichkeiten - Ligen mit 
3 bis 20 Mannschaften 
können verwaltet werden 
- Bearbeitung von drei 
verschiedenen Tabellen. 
I. die aktuelle Tabelle, 2. 
der komplette Spieltag, 3. 
eine vom Anwender simu¬ 


lierte Tabelle, in der man 
z.B. einen Tip abgeben 
kann - statistische und 
graph.sche Übersicht - 
Hardcopy der Tabellen 
und Graphiken - Hand¬ 
buch. 

UNI-TAB 
DM 69,-* 


nanzgeme - er assistiert 
Ihnen in allen Termin- und 


Finanzfragen. 


In Stichworten: 
verarbeitet feste Einnah¬ 
men und Ausgaben. Kre¬ 
dite und Sparposten oder 
variable Beträge alle Aus¬ 
gaben auch auf Drucker - 
arbeitet terminorientiert 
(Daten werden nach Fäl¬ 
ligkeit gefunden) - feste 
Termine werden über¬ 
wacht und auf einem per¬ 
sönlichen Terminplaner 
ausgedruckt - Überwei¬ 
sungen werden vorberei¬ 


tet und Kontostände au¬ 
tomatisch aktualisiert - al¬ 
le Berechnungen zu Kre¬ 
diten und Sparen (z. B. 
Zinsen oder Darlehnen¬ 
sangebote) durch Formel¬ 
vorgabe möqlich. 
FINANZGENIE 
DM 69,-. 


die Segmente einer Pyra¬ 
mide zu färben. 

CROWN - sollte in Ihnen 
eine verborgene 

Spielernatur stecken, ist 
dies genau das Richtige 
für Sie: ein wirklichkeits¬ 
getreuer Spielautomat. 
SUPER 4 
DM 49,-* 


Dieses Softwarepaket 
macht Ihren C-64 zum Fi- 





KALKUMAT 
DM 198,-* 

Das Software-Paket KALKUMAT setzt neue Standards für Kalkulations-Programme 
auf dem C64. Bewährte Leistungsmerkmale solcher Programme wurden erhalten, 
neue hinzugefügt und das Ganze mit einer ungewöhnlich komfortablen Bedienerfüh¬ 
rung versehen. 

KALKUMAT bietet Ihnen dank des integrierten Graphik-Pakets Kalkugraph optima¬ 
les Arbeiten mit Zahlen, übersichtlichen Tabellen, Graphiken und Statistiken 

KALKUMAT in Stichworten: 

Tabellen bis zu 255 Zeilen in 63 Spalten erstellbar - jede Spaltenbreite frei wählbar - bequeme Eingabe aller Werte 
über Edit-Zeile (wie in BASIC-Programmen) - alle Optionen über Menues erreichbar - automatisches Zentrieren 
von Spaltenüberschriften - Titelfeldfunktion zum komfortablen Kommentieren - Fenstertechnik - Replizieren und 
Kopieren von Formeln - Einfügen und Löschen von Zeilen und Spalten - in Zweifelsfällen einer von mehr als 90 
Hilfsbildschirmen aufrufbar - alle Texte in deutscher Sprache - wahlweise amerikanischer oder deutscher Zei¬ 
chensatz (mit Umlauten) - vielfältige graphische Darstellungsmöglichkeiten von Werten: Kuchengraphik, Kurven¬ 
züge, Minimum-Maximum-Graphik, Säulendiagramme - Kuchen- und Balkengraphik auch dreidimensional mög¬ 
lich - Beschriftung der Graphiken in verschiedenen Größen horizontal und vertikal möglich - 8 verschiedene Gra¬ 
phiken können in Fenstern gleichzeitig dargestellt werden - alle Graphiken als Hardcopy auf den COMMODORE- 
Druckern 1525, 801,802, 803 und EPSON-Druckern mit DATA BECKER-Interface - Handbuch mit ausführlichem 
Anwender- und Übungsteil 


FAKTUMAT 
DM 148,-* 

Wirkliche Arbeits- und Zeitersparnis beim Schreiben von Rechnungen bringt FAK¬ 
TUMAT. 

FAKTUMAT bietet Ihnen: 

Sofortfakturierung mit integrierter Lagerbuchführung - individuelle Anpassung von 
Steuersätzen, Maßeinheiten und Firmendaten - Kunden- und Artikelstamm voll pfleg¬ 
bar - schneller Zugriff auf Kunden - und Artikeldaten über freidefinierbaren, 6-stelli- 
gen Schlüssel - automatische Fortschreibung von Artikel- und Kundendaten, indivi¬ 
duell nutzbar. 


FAKTUMAT in Stichworten: 

voll menuegesteuert - läuft mit einer oder zwei Floppies - Diskettenwechsel (eine Floppy) nur beim Wechsel von 
Hauptmenue und Unterprogramm - arbeitet mit 1525, 1526, MPS 801, 802, 803 und EPSON Drucker mit DATA 
BECKER-Interface - voll parameterisiert: Firmenkopf, Mehrwertsteuer und Rabattsätze, Größe der Dateien belie¬ 
big wählbar - 5 Zeilen für Firmenkopf je 30 Zeichen (erste Zeile erscheint auf der Rechnung in Breitschrift) - 4 Mehr¬ 
wertsteuersätze; während der Rechnungsschreibung können also Artikel mit unterschiedlichem Mehrwertsteuer¬ 
satz verrechnet werden -10 Rabattsätze (Rabattsatz 1 vorbelegt mit 0%); bei der Rechnungsschreibung kann je¬ 
dem Artikel ein Rabattsatz zugewiesen werden - maximal 1900 Artikel bei 50 Kunden oder 950 Kunden bei 100 Ar¬ 
tikeln, max. Artikel = (1000 - Kunden)*2; max. Kunden * (2000 - Artikel)/2 - manuelle Eingabe von Artikeln und/oder 
Kunden während der Rechnungsschreibung; d.h. es können mehr Artikel verrechnet werden als überhaupt in die 
Datei passen (bei Verzicht auf Lagerbuchführung) bzw. es können Rechnungen an Kunden geschrieben werden, 
die nicht erfaßt wurden - integrierte Lagerbuchführung mit Ausgabe einer Inventurliste - Rechnungsbeträge und 
Datum werden in der Kundendatei festgehalten - Druck von: Rechnung (mit Abbuchen aus Lager), Rechnung (oh¬ 
ne Abbuchen aus Lager), Lieferschein - detailliertes deutsches Handbuch mit Übungs- und Anwendungsteil - 
deutsche Bedienerführung innerhalb des Programms. 

* unverbindliche Preisempfehlung. Alle Programme auf Diskette für VC-1541. 






Ob Sie nun Roboter steu¬ 
ern oder schnell hochauf¬ 
lösende Grafiken erstellen 
wollen - die faszinierende 
Sprache für anspruchs¬ 
volle Anwendungen ist 
FORTH. Lernen Sie pro¬ 
blemlos das Rechnen mit 
UPN oder das Arbeiten 
mit dem Stack, strukturi¬ 
ertes Programmieren wie 
auch die Verbindung von 
FORTH und Maschinen¬ 
sprache kennen. Außer¬ 
dem: FORTH intern, Spei¬ 
cheraufteilung, Wörterbu¬ 
cheintrag, Stringverarbei¬ 
tung, Compilererweite- 
rung und vieles mehr. 


Voß 

Einführung in die 
Künstliche Intelligenz 
Mit vielen Programmen 
für den C 64 
395 Seiten, DM 49,- 
ISBN 3-89011-081-9 



UnlUinini in 

Künstliche 

Intelligenz 


Mit vlalvn 

Progranrotn lUr C *4 


AM DATA BACHAB BUCH 


Konkurrenzlos! Dieses 
Buch enthält nicht nur ei¬ 
ne umfangreiche Pro¬ 
grammsammlung, son¬ 
dern ist zuglich qualifizier¬ 
tes Standardwerk (inklusi¬ 
ve Tips und Tricks!) für die 
anspruchsvolle wissen¬ 
schaftliche Nutzung des 
C 64. Mit Sortier- und Ma¬ 
thematikprogramm, Stati¬ 
stik und weiteren interes¬ 
santen Programmen für 
Chemie, Physik, Biologie 
und Elektronik wird der 
64er zur wissenschaftli¬ 
chen Hilfskraft. Ein breites 
Spektrum, gut und aus¬ 
führlich dokumentiert. 



Monadjemi 

Das Trainingsbuch zu 
FORTH 

300 Seiten, DM 39,- 
ISBN 3-89011-055-X 


Zentrales Thema aktueller 
Diskussionen: die Künstli¬ 
che Intelligenz (Kl). Eine 
ausführliche und interes¬ 
sante Einführung in deren 
Theorie und Einsatzmög- 
lichkeiten, vom histori¬ 
schen Abriß über die 
"denkenden“ und "leben¬ 
den" Maschinen bis zu 
Anwendungsbeispielen 
mit Programmen für den 
Commodore 64. Exper¬ 
tensystem, Such- und 
Auskunftsprogramm oder 
selbstlernende Program¬ 
me werden ebenso dar¬ 
gestellt wie Computer- 
Kunst oder Simulationen. 


Steigers 

Das Roboterbuch zum 
Commodore 64 
ca. 230 Seiten, DM 49,- 
erscheint April 1985 
ISBN 3-89011-86-X 





ROBOTER- 
BUCH ^ 

AM DATA BACHAB BUCH 
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Sasse 

Compiler - verstehen, 
anwenden, entwickeln 
336 Seiten, DM 49,- 
ISBN 3-89011-061-4 


Monadjemi 

FORTH für Fortgeschrit- 


commoootu «w 

FÜR TWCHMm 
UND 



AM DAT» BACHAB BUCH 


Severin 

Commodore 64 für 
Technik und Wissen¬ 
schaft 

296 Seiten, DM 49,- 
ISBN 3-89011-021-5 


tene 

ca. 200 Seiten, DM 49,- 
erscheint September 
1985 

ISBN 3-89011-111-4 



STAR-TRECK im Wohn¬ 
zimmer? Dieses packen¬ 
de Buch zeigt, wie man 
sich einen Roboter ohne 
großen finanziellen Auf¬ 
wand selbst bauen kann 
und welche erstaunlichen 
Möglichkeiten der C 64 
zur Programmierung und 
Steuerung bietet - an¬ 
schaulich dargestellt mit 
vielen Abbildungen und 
etlichen Beispielen. Dazu 
ein spannender berblick 
über die historische Ent¬ 
wicklung des Roboters 
und eine umfassende Ein¬ 
führung in kybernetische 
Grundlagen. Unentbehr¬ 
lich für jeden Roboterfan! 


Zu den wichtigsten Ar¬ 
beitsmitteln des Program¬ 
mierers überhaupt gehö¬ 
ren Compiler, deren 
Grundlagen, Funktionen 
und Einsatzweise in die¬ 
sem Buch systematisch 
erklärt werden. Auch die 
Entwicklung eines eige¬ 
nen Compilers, lexikali¬ 
sche, syntaktische und 
semantische Analyse so¬ 
wie Codegenerierung 
sind ausführlich beschrie¬ 
ben. Mit vielen nützlichen 
Programmen, speziell zu¬ 
geschnitten auf den Com¬ 
modore 64 - Pflichtlektüre 
für jeden ernsthaften Pro¬ 
grammierer! 


Für alle Freunde dieser 
überzeugenden Sprache 
eine Fülle von Tips und 
Tricks, wertvollen Hinwei¬ 
sen und natürlich jede 
Menge "Neuland". Bauen 
Sie mit diesem gelunge¬ 
nen Buch jetzt Ihr FORTH- 
Grundwissen erfolgreich 
aus! Jedem, der eine ech¬ 
te Alternative zu den her¬ 
kömmlichen Program¬ 
miersprachen sucht, bie¬ 
tet FORTH das richtige 
Konzept. Mit dem Stack 
im Mittelpunkt einer "Pro¬ 
grammierphilosophie" 
eröffnen sich frappieren¬ 
de Möglichkeiten. Nutzen 
Sie dieses "Mehr" an Lei¬ 
stung! 








Angerhausen/Brück- 
mann/Englisch/Gerits 
64 Intern 

Das große Buch zum 
Commodore 64 mit do¬ 
kumentiertem Schalt- 
plan _ 

Das Standardwerk zur 
Floppy VC 1541. Alles 
über Diskettenproqram- 
mierung vom Einsteiger 
bis zum Profi. Neben 
grundlegenden Informa¬ 
tionen zum DOS, zu den- 
Systembefehlen und Feh¬ 
lermeldungen stehen 
mehrere Kapitel zur prak¬ 
tischen Dateiverwaltung 
mit der Floppy. Umfang¬ 
reiches, dokumentiertes 
DOS-Listing.Dazu eine 
Fundgrube verschieden¬ 
ster Programme und 
Hilfsroutinen, die das- 
Buch für jeden Floppy- 
Anwender einfach zur 
Pflichtlektüre machen. 


Das Superbuch, das Ih¬ 
nen zeigt, was alles in Ih¬ 
rem Rekorder steckt. In¬ 
formiert detailliert und 
leichtverständlich über 
Datasette und Cassetten- 
speicherung. Mit den 
Spitzenprogrammen Au¬ 
tostart, Catalog (sucht 
und lädt automatisch!), 
Backup von und auf Flop¬ 
py, Save von Speicherbe¬ 
reichen und einem neuen 
Cassetten-Betriebssy- 
stem mit dem 10-20 mal 
schnelleren (!) Fasttape. 
Außerdem weitere nützli¬ 
che Hinweise (Kopfjusta¬ 
ge, Kontroll-Lautspre- 
cher) und Programme. 


Die Herausforderung für 
jeden ernsthaften Anwen¬ 
der! Alles über Technik, 
Betriebssystem und fort¬ 
geschrittene Program¬ 
mierung des Commodore 
64. Mit ausführlichem 
ROM-Listing, sorgfältig 
dokumentierten Original¬ 
schaltplänen zum Aus¬ 
klappen, zahlreichen Ab¬ 
bildungen, Schaltbildern, 
Blockdiagrammen und - 
natürlich - mit anspruchs¬ 
vollen Programmen. Mit 
diesem unentbehrlichen 
Buch lernen Sie Ihren C 64 
erst richtig kennen. 

352 Seiten, 2 Schaltplä¬ 
ne, DM 69,- 
ISBN 3-89011-000-2 



Englisch/Szczepa- 

nowski 

Das große Floppy-Buch 
482 Seiten, DM 49,- 
ISBN 3-89011-006-3 



Paulissen 

Das Cassettenbuch zum 
Commodore 64 und VC- 
20 

190 Seiten, DM 29,- 
ISBN 3-89011-030-4 



Drucker- 

Buch 
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Brückmann/Gerits/ 

Wiens 

Das große Druckerbuch 
369 Seiten, DM 49,- 
ISBN 3-89011-020-7 


Selbsthilfe spart Zeit, Är¬ 
ger und Geld - gerade 
Probleme wie Floppy- 
Justage oder Reparatu¬ 
ren der Platine sind mit oft 
einfachen Mitteln zu lö¬ 
sen. Anleitungen zur Be¬ 
hebung der meisten Stör¬ 
fälle, Ersatzteillisten und 
eine Einführung in Mecha¬ 
nik und Elektronik des 
Laufwerks. Natürlich ge¬ 
hören auch genaue Anga¬ 
ben zu Werkzeug und Ar¬ 
beitsmaterial zum Buch, 
das in jeder Beziehung für 
“effektiv und preiswert“ 
steht. 


Brückmann 

Der Commodore 64 und 
der Rest der Welt 
229 Seiten, DM 49,- 
ISBN 3-89011-015-0 
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Mit diesem Buch meistern 
Sie absolut jedes Druk- 
ker-Problem. Ob Sekun¬ 
däradressen, Schnittstel¬ 
len, Steuerzeichen, for¬ 
matierte Datenausgabe 
oder Grafik-Hardcopy: al¬ 
les hervorragend erklärt. 
Selbstverständlich wieder 
viele nützliche Program¬ 
me zum Abtippen; außer¬ 
dem wichtige Hilfen zur 
Druckeranpassung, ein 
Betriebssystemlisting des 
MPS 801 und ein eigenes 
Kapitel zum VC-1520. 
Jetzt holen Sie das Opti¬ 
mum aus Ihrem Drucker 
heraus! 



Floppy 

VC 1541 

PlitnjfHt und i 

i T 

«3 
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Hermann 

VC-1541 Pflegen und 
Reparieren 

ca. 200 Seiten, DM 49,- 
ISBN 3-89011-079-7 


Literatur speziell für den 
engagierten Hobbyelek¬ 
troniker vom fähigen 
Techniker zusammenge¬ 
stellt. Schwerpunkt sind 
ausgesuchte Ideen zu 
verschiedenen Einsatz¬ 
möglichkeiten des C 64: 
Motorsteuerung, A/D- 
Wandler, Spannungs¬ 
und Temperaturmessung 
und Lichtorgel. Dazu eine 
Reihe hochinteressanter 
Schaltungen zum Nach¬ 
bau: EPROM-Program- 
mer, Sprachsynthesizer, 
Frequenzzähler und noch 
mehr. 





Ein Bestseller, der erfolg¬ 
reich und umfassend in 
die Maschinensprache 
einführt. Sie lernen Auf¬ 
bau und Arbeitsweise des 
6510 Mikroprozessors 
kennen, erfahren Wichti¬ 
ges über Eingabe und 
Start von Maschinenpro¬ 
grammen sowie über den 
Umgang mit Monitor, As¬ 
sembler und Disasse¬ 
mbler. Assembler und Di¬ 
sassembler sind im Buch 
als Programme ebenso 
enthalten wie ein Einzel¬ 
schrittsimulator. Viele 
ausführlich beschriebene 
Beispielprogramme und 
Routinen machen Ihnen 
den Einstieg leicht. 



PEEK5 

ROKES 

am 

COMMOOOrtC *4 
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Liesert 

Peeks & Pokes zum 
Commodore 64 
177 Seiten, DM 29,- 
ISBN 3-89011-032-0 


Bedienerfreundlich und 
erfolgreich in BASIC pro¬ 
grammieren ist kein Privi¬ 
leg von Fachleuten. Wie 
man es macht, verraten 
die Software-Autoren aus 
dem Hause DATA BEK- 
KER: Menuesteuerung, 

Maskenaufbau, Parame- 
terisierung und Dokumen¬ 
tation sind die Stichworte. 
Dazu die neue leistungs¬ 
fähige Datenstruktur QUI- 
SAM mit lauffertigen Bei- 
spielprogrammen. 

Einfach besser 
programmie¬ 
ren! 



Englisch 

Das Maschinenspra¬ 
chebuch zum Commo¬ 
dore 64 

201 Seiten, DM 39,- 
ISBN 3-89011-008-8 


Leichtverständlich wird 
hier der Umgang mit 
PEEK- und POKE-Befeh- 
len erklärt, die vieles ver¬ 
einfachen, was sonst 
komplizierte Maschinen¬ 
routinen nötig machen 
würde. Dazu nützliche 
POKEs und Ihre Anwen¬ 
dungsmöglichkeiten. Au¬ 
ßerdem Grundlegendes 
zum Aufbau des C-64: 
Betriebssystem, Interpre¬ 
ter, Zeropage, Pointer 
und Stacks, Charakter- 
Generator, Sprite-Regi- 
ster und vieles mehr. Mit 
einer ersten Einführung in 
die Maschinensprache 
und etlichen Beispielpro¬ 
grammen. 


Angertiausen/Becker/ 
Gerlts/Schellenberger 
64 für Profis 
302 Seiten, DM 49,- 
ISBN 3-89011-007-X 


64 

für Pro f Im 



Sie haben derr Einstieg in 
die Maschinensprache 
geschafft? Dann werden 
Sie jetzt zum Profi! Von 
der Problemanalyse bis 
zum Maschinensprache¬ 
algorithmus werden Sie 
umfassend in die Grund¬ 
lagen der professionellen 
Maschinensprachepro¬ 
grammierung eingeführt. 
Dazu wieder viele Bei¬ 
spielprogramme, kom¬ 
plette Maschinenroutinen 
und wichtige Tips & Tricks 
zur Maschinenprogram¬ 
mierung und zur Arbeit mit 
dem Betriebssystem. 


Schmidt 

Assembler Trainings¬ 
buch 

ca. 250 Seiten, DM 39,- 
erscheint April 1985 
ISBN 3-89011-071-1 



Eine umfassende, praxi¬ 
sorientierte Einführung in 
den Komplex Dateiver¬ 
waltung, Datenbanken, 
Datenbanksprachen und 
Expertensysteme. Erklärt 
werden logische und phy¬ 
sische Datenstrukturen 
oder sequentieller und Di¬ 
rektzugriff. Wer wissen 
will, wie ein Hashing-Al¬ 
gorithmus aufgebaut ist 
oder wie man ein kom¬ 
plettes Dateiverwaltungs¬ 
programm erstellt (das im 
Buch als ausführliches Li- 
sting enthalten ist), der 
braucht dieses Super¬ 
buch. 



Englisch 

Das Maschinenspra¬ 
chebuch für Fortge¬ 
schrittene zum Commo¬ 
dore 64 

206 Seiten, DM 39,- 
ISBN 3-89011-022-3 


Dem interessierten Anfän¬ 
ger werden hier die weit¬ 
verbreiteten Assembler 
Profimat, MAE 64 und 
T.EX.AS. ausführlich an¬ 
hand von Übungen und 
Beispielen erklärt und auf¬ 
bauend eine konsequente 
Einführung in die Maschi¬ 
nensprache vermittelt. 
Gleichzeitig ein fundiertes 
Nachschlagewerk: Ein 

umfassender und über¬ 
sichtlicher Anhang mit Er¬ 
läuterungen aller wichti¬ 
gen Begriffe sowie ein 
reichhaltiges Stichwort¬ 
verzeichnis ergänzen die¬ 
ses Trainingsbuch opti- 
mal.__ 



Baloui 

Alles über Datenbanken 
und Dateiverwaltung für 
den Commodore 64 
222 Seiten, DM 39,- 
ISBN 3-89011-054-1 












ANFORDERUNG SICHERHEITSKOPIE 


Für das umseitig beschriebene Programm senden Sie mir bitte eine 
Sicherheitskopie. 

Die Sicherheitskopie wird von mir ausschließlich als Ersatz einer nicht 
mehr ladbaren Originaldiskette benutzt. Eine Weitergabe der Sicher¬ 
heitskopie oder ein gleichzeitiger Einsatz auf einem anderen Rechner 
gilt als ausgeschlossen. Bei Verkauf oder Weitergabe der Original¬ 
diskette werde ich die Sicherheitskopie mit weitergeben und den 
neuen Benutzer an diese Bedingungen binden oder aber die Sicher¬ 
heitskopie vernichten. 

Bei Zuwiderhandlung gilt eine Konventionalstrafe in Höhe von 
DM 1.000,— als vereinbart. 

Einen Scheck über DM 20,— habe ich beigefügt. 


(Datum) 


(Unterschrift) 


Bitte auch die Rückseite vollständig ausfüllen und die 
Anforderung in einem frankierten Umschlag senden an: 


DATA BECKER 

Merowingerstraße 30 
4000 Düsseldorf 1 




ANFORDERUNG SICHERHEITSKOPIE 

Programmname: PROFI PASCAL _ 

Computersystem: Commodore 64 _ 

Serien-Nr.: _ 

Name: _ 

Firma: _ 

Straße: _ 

PLZ/Wohnort: _ w 

Händler: _ 

Kaufdatum: _ 

Adressieren Sie bitte folgenden Paketaufkleber an Ihre Adresse. 

Sie helfen uns damit, Ihnen Ihre Sicherheitskopie noch schneller 
zukommen ZU lassen. (Bitte in Druckbuchstaben schreiben.) 

Absender 

DATA BECKER 

Postfach 1440 
Merowingerstraße 30 
4000 Düsseldorf 1 


(Straße und Hausnummer oder Paketausgabe) 


Bitte frei lassen zum Aufkleben des Paketnummernzettels 



Postleitzahl bitte besonders groß und auffällig angeben! 


(Bestimmungsort) 




Das professionelle 
PASCAL-Entwicklungssystem 


EIN DATA BECKER PROGRAMM 







